


Re?5 DISK FORMATTER 


OPYRIGHT Ce> 1983-84 
AR=TZ755-=he 
CZACHBO oR PONE OleGe Oe ss 





EHEDRED 








RCZ5 DISK FORMATTER OPYRIGHT Cc) 1963-84 198 
CZRCHBC Se enone 








—_" 0001 
Z2RCHB 1 ZRCHBO RC2S DISK FORMATTER 5-Apr-1984 13:43:03 VAX-11 Bliss-16 V3-555 Page 1 
22-Feb-1964 12:03:49 SPIDERSUSERS: (NEALE. AZTEC )ZRCHB1.616;7 (1) 


0OOL MODULE ZRCHBi (STITLE ZRCHBO RC25 DISK FORMATTER’ 
0002 IDENT = ‘REV B PATCH 00) = 
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0016 IDENTIFICATION 


0019 PRODUCT CODE: AC-T274B8-MC 

0021 PRODUCT NAME: CZRCHBO RC25 DISK FORMATTER 
0023 PRODUCT DATE: 23-January - 1984 

0025 MAINTAINER : Disk Engineering 

AUTHOR : O.W.Neale 


0033 THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT 
0034 NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL 
0035 EQUIPMENT CORPORATION, DIGITAL EQUIPMENT CORPORATION ASSUMES NO 
0036 RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT. 


0038 NO RESPONSIBILITY IS ASSUMED FOR THE USE OR RELIABILITY OF 
0039 SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY DIGITAL OR ITS 
0040 AFFILTATED COMPANIES. 
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0107 ©.0 MAINTENANCE HISTORY 


0109 Modified By: 0.W.Neale Date: 13-Jul-83 Version: 1.0 
0110 Original release 


0112 Modi fied ores O.W.Neale Date: 23-Jan-84 Version: 2.0 
0113 Modified DM formatter to format inner DBN tracks with offset. 
0114 Other minor host code changes marked by the notation "V2.0". 
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3 Cc 0115 1.0 GENERAL INFORMATION 

3 C 0116 

: C 0117 1.1 PROGRAM ABSTRACT 

3 Cc 0118 This program will prepare RC25 media for use as addressable storage by 

3 C 0119 providing headers and replacing of bad blocks. This formatter will be 
F C 0120 composed of two sections; a wnhost-resident section, and r) 
3 3 ere controller-resident DM code section. 

; C 0123 The host section will serially format up to sixteen RC25 subsystems by 
3 C 0124 downline-loading the OM code, end monitor the task. The downline 
: C 0125 section will consist of overlays of DM code. The first of these will be 
8 C 0126 down-line loaded to the drive itself, and eccomplish the actual business 
3 C 0127 of formatting, calling in additional overlays es needed, asking software 
Hy C 0128 peremeters questions end printing formatter error and informational 
3 C 0129 messages. 

: 3 pee There are three general modes of DM formatter operation and they are: 

3 

8 C 0132 © REFORMAT - This mode is used to format ea medium which has been 
Fy C 0133 previously formatted, and is Sota reformatted to clear 
3 C 0134 existing date or to change the mode of the medium to 512 bytes 
3 C 0135 per sector. It assumes that the FCT is still intact. 

: C 0136 © RESTORE - This mode will only be run by DIGITAL Manufacturing 
3 C 0137 personnel. It provides an external copy of the FCT, produced 
8 Cc 0138 when the disk was manufactured and stored offline, to the 
3 C 0139 RC25 formatter. 

8 C 0140 o RECONSTRUCT - This mode is used when none of the other modes 
3 C 0141 is possible. It detects bad blocks by performing repetitive 
3 C 0142 read checks of each sector. For this reason, a RECONSTRUCT 
3 : eee run tekes considerably longer than the other modes. 

; C 0145 There are two general modes of HOST operation and they are: 

Fy C 0146 o ATTENDED MODE- This is where an operator must be present at the 
ry C 0147 console terminal to respond to DM formatter software parameter 
Fy C 0148 questions. In this HOST mode the operator can choose any of the 
: Cc 0149 three 0M perness ing modes. 

3 Cc 0150 © UN-ATTENDED MODE- This is where the HOST will automatically answer 
8 C 0151 OM formatter software parameter questions to perform a REF AT 
3 es mode to ell units selected units via the hardware P_Tables. 

3 C 0154 1.2 Performance Goals 

A C 0155 Before initiating the format process, simple checks will be made to 
; C 0156 essure the object drive exists, and that communications are possible 
3 3 ee between host and downline program sections. 

8 

3 Cc 0159 To maximize throughput: 

s C 0160 © For full Track reads 3 half Track skew will be employed. That 

s C 0161 is. for even physical LBN track numbers each block number in 

3 C 0162 Track Nel will occur 16 block times leter than in Track N. 

3 C 0163 © During bed block replacement, primary replecemert blocks (RBN) 

8 C 0164 will be used first. A second pass will then use secondary 

8 C 0165 RBN‘'s for any additional bad blocks. 

3 C 0166 All bad blocks, whether induced by the manufacturing process or 
3 C 0167 weer -ceused, will be revectored to Replacement Blocks (RBN). This will 
3 C 0168 essure the full compliment of 25,451 blocks per surface for host 
F} Cc 0169 applications use. 

A C 0170 Product reliability is enmanced through use of four copies of the FCT 
F C O171 and RCT. 
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1.3 SYSTEM REQUIREMENTS 


Tne following are required to run the RC25 Formatter 
on PDP-11 Systems: 

A POP-11 series CPU 

A minimum of 28K words of main memory 

An RC25 subsystem 

An XXDP+ load medium 

A console terminal 

Diagnostic Supervisor 


RELATED DOCUMENTS AND STANDARDS 
. DOUP.VvOS Diegnostic/Utilities Protocol version 0.5 
Ua@ssP .DOC Unibus/Q-Bus Storage Systems port V1.5 
Mass Storage Control Protocol 
AZTEC .DOC RC25 Microcode Documentation 
vy oh dt 2 we re Patan Se Tatts tae version — 
. - iagnostic rvisor Programming gui 
CHQuUSO. SEQ XxXOP+/SUPR user manuel 
BLISS-16 Language Guide 
. BLISS-16 User's Guide 


1.5 OIAGNOSTIC HIERARCHY PREREQUISITES 

A fully functional CPU. main memory and RC25 subsystem are required. 

1.6 ASSUMPTIONS 

Prior to the first formatting of a media, an exhaustive surface analysis 
is essumed to have taken plece to detect bad spots caused by the 
manufacturing process. The results of this analysis is assumed to have 
been written as two FCT images per FCT track on the RC25 media. 


1.7 PRODUCT USERS AND USES 
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This program is intended for use on media which has undergone a surface 
enelysis process, resulting in the writing of Factory Control Tables 
(FCT) on the media. 

The program will be used by anoincering and Manufacturing Groups as a 
product development tool. and by ield Service personnel for media 
recovery. 

This program is ea utility and is not intended for use as a diagnostic. 
For future use, the DM formatter code portion of this program will be 
used by operating systems as ea format utility program. 
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: C 0217 1.8 RESTRICTIONS 
Fy C 0218 
: € ote This program will be host loaded. 
3 
8 C 0221 With the exception of the FCT and inner OBN tracks, all information previously 
F C 0222 recorded on the media will be destroyed. This includes all LBN, RBN and RCT 
3 C 0223 blocks. 
3 C 0224 
3 C 0225 Tne format process will reset the forced error indicator (EDC field) of 
’ C 0226 each LBN, DBN, and used °BN and set the forced error indicators of all 
: C 0227 unused REN‘s. 
3 C 0228 
Fy C 0229 Tne FCT preamble will indicate zero for both the size of the 576 byte 
; : acne replacement table, and the size of the controller scratch area. 
8 3 aees All sectors will nave 512 byte data fields. 
3 
3 C 0234 This Host program will run on only POP-11 family CPUs which support the 
Fy 0235 Diagnostic Supervisors. 
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3 C 0237 1.9 Bad Block Definition 
3 C 0238 
3 3 pn 444 Tne Formatters bad block replacement convention is as follows: 
, C 0241 For Read operations: 
3 C 0242 ww we nee ween eee eeeee 
3 : Saaa Any ECC, read or compare cate failure will result in four retries. 
; C 0245 Failure of any retries will be considered a Hard error and 
3 : oes the block in error will be replaced. 
Fy 4 
3 C 0248 Tne block in question will be considered and no revectoring 
3 : oan will be done if all retries are successful. 
, C 0251 For Write operations: 
3 C 0252 j= ——— seeecccecseeneee-eee 
3 3 rey A Write failure will result in four retries. 
: C 0255 Feilure of any retries will be considered a Hard error and 
: : oot the block in error will be replaced. 
: C 0258 The block in question will be considered and no revectoring 
3 C 0259 will be done if all retries are successful. 
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3 3 rear 1.10 SOURCE MODULE DEFINITION 

3 1 

3 C 0262 The following list all source module comprising ZRCHBO and a description 
3 C 0263 of their contents. 

3 C 0264 

8 C 0265 1. ZRCHBO.R16 Host source bliss library 

3 C 0266 2. ZRCHB1.816 Program source document module 

: C 0267 3. ZRCHB2.816 Global data module 

’ C 0268 4. ZRCHB3.B816 Init code source module 

: C 0269 5. ZRCHB4.B16 Test source module 

3 C 0270 6. ZRCHBS.B16 Global routine source module 

Fy C 0271 7. ZRCHB6.B16 OM formatter down-line load executable module 

3 C 0272 8. ZRCHB7.816 ORS> Lest address source module 

3 C 0273 9. ZRCHBS.EXE DMCONV.EXE Dmconv executable code 

3 * € 0274 10. ZRCHB9.BP2 OMCONV.BP2 Dmconv source module 

} C 0275 11. ZRCHB10.LST AZFMTR.LST OM formatter list file 

3 C 0276 12. ZRCHB11.MAC AZFMTR.MAC OM formatter source macro module 

3 C 0277 13. ZRCHB12.SAV AZFMTR.SAV DM formatter executable code 

; C 0278 14. ZRCHB.COM Project indirect command file 

3 C 0279 15. ZRCHB.DOC Program document listing file 

3 C 0280 16. ZRCHB.SEQ Host sequence listing 

3 3 eee 17. ZRCHB.BIN Program XxXDP+ .bin file 
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3 : Peay 2.0 OPERATING INSTRUCTIONS 
3 
3 C 0285 This section contains a brief description of the runtime services. 
: 3 oot for detailed information, refer to the XXDP+ user's manual (CHQUS). 
: C 0288 2.1 COMMANDS 
’ C 0289 
F C 0290 There are eleven legal commands for the diagnostic runtime services 
3 C 0291 (supervisor). This section lists the commands and gives a very 
3 : rade | brief description of them. The XXDP+ user's manual has more details. 
; C 0294 COMMAND EFFECT 
3 ® OCU8 = ween” | | eneamndwes sees nsuceenesewens 
3 3 each START Start the diagnostic from an initial state 
; : 0298 RESTART Start the diagnostic without initializing 
: € 0300 CONTINUE Continue at test that was interrupted (after tC) 
3 C 0301 Attempts to continue after a control ¢ will result 
3 C 0302 in the present units formatting to be aborted and 
: : Sees the next logical units formatting to commence. 
: C 0305 PROCEED Continue from an error halt. This host program 
’ C 0306 is coded to be a utility and not a diagnostic, 
3 C 0307 therefor no error macros are used. For this 
: : ened reason this DRS> command has no meaning. 
; ¢ 0310 EXIT Return to XXDP+ monitor (XXDP+ operation only!) 
3 1 
; C 0312 ADD Activate ea unit for testing (all units are 
3 3 eee considered to be active at start time 
: C 0315 DROP Deactivate a unit 
F C 0316 
H C 0317 PRINT Print statistical information. Report summary 
; C 0318 coding is remote DM program driven and is not 
8 C 0319 implemented in the host. 
H C 0320 
s 3 ert! DISPLAY Type a list of all device information 
; : party FLAGS Type the state of all flags (see section 2.3) 
; C 0325 ZFLAGS Clear all flegs (see section 2.3) 
; C 0327 A command can be recognized by the first three characters. 
; s Sees So you may, for example, type “STA” instead of “START”. 
; € 0330 2.2 SWITCHES . 
3 C 0331 
s C 0332 There ere several switches which are used to modify supervisor 
3 C 0333 operation. These switches are appended to the legal commands. 
3 C 0334 All of the legal switches ere tabulated below with eo brief 
s C 0335 description of each. In the descriptions below, ea decimal number 
3 C 0336 is designated by "DDDDD”. 
F C 0337 
3 3 0338 SWITCH EFFECT 
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3 C 0340 /TESTS:LIST Execute only those tests specified in 
3 C 0341 the list. List is a stri of test 
Fy C 0342 numbers, for example - /TESTS:1:5:7-10. 
Fy C 0343 This List will cause tests 1,5,7.,8,9,10 to 
3 ooes be run. All other tests will not be run. 
: C 0346 /PASS:0D000 Execute DDDDD passes (DDDDD = 1 to 64000) 
: C 0347 The host code will perform only one pass. 
: C 0348 At completion of pass one the program will 
A : Saas be terminated regardless of this switch. 
3 C 0351 /FLAGS:FLGS Set specified flags. flags are described 
3 C 0352 in section 2.3. 
8 C 0353 
: C 0354 /EOP :DD0D0D Report end of pass aposens after every 
3 C 0355 DDDDD passes only. ( = 1 to 64000) 
: C 0356 The host code wi li perform only one pass. 
3 C 0357 At completion of pass one the program will 
: : oes be terminated regardless of this switch. 
3 
3 C 0360 /UNITS:LIST TEST/ADD/DOROP only those units specified 
8 C 0361 in the list. List example - /UNITS:0:5:10-12 
: 3 en | use units 0,5,10,11,12 Cunit numbers = 0-63) 
3 C 0364 Example of switch usage: 
3 C 0365 
: 3 Po START/TESTS:1-5/PASS: 1000/E0P: 100 
8 : aoe The effect of this command will be: 
3 : rete 1. Tests 1 through 5 will be executed. 
$ : ped 2. All units will tested 1000 times. 
; C 0374 3. Tne end of pass messages will be 
F : esta printed after each 100 passes only. 
; C 0377 A Switch can be recognized by the first three characters. You 
; 3 rede may. for example, type "/TES:1-5" instead of “/TESTS:1-5". 
3 C 0380 Below is a table that specifies which switches can be used by 
5 C 0381 each command. 
3 C 0382 
A C 0383 TESTS PASS FLAGS EOP UNITS 
3 ee Te ee eee eee ey ee 
H C 0385 START x x x x x 
5 C 0386 RESTART x x x x x 
H C 0387 CONTINUE x x x 
s C 0388 PROCEED x 
5 C 0389 OROP x 
$ C 0390 ADD x 
3 C 0391 PRINT 
5 C 0392 DISPLAY x 
5 C 0393 FLAGS 
3 C 0394 ZFLAGS 
3 3 0395 EXIT 


Li 


SEQ 0011 
ZRCHB1 ZRCHBO RC25 DISK FORMATTER S-Apr-1984 13:43:03 VAX-11 Bliss-16 V3-555 Page 11 
REV 8 PATCH 00 USER DOCUMENTATION 22-Feb-1984 12:03:49 SPIDERSUSERS : [NEALE .AZTEC ]ZRCHB1.B16; 7% (8) 


o 
° 
w 
oO 
~ 


0398 2.3 FLAGS 


0400 Flags are used to set up certain operational parameters such as 
0401 looping on error. All flags are cleared at startup and remain 
0402 cleared until explicitly set using the flags switch. Flags 
0403 are also cleared after a start command unless set using the 
0404 flag switch. The ZFLAGS command may also be used to clear 
0405 all flags. with the exception of the START and ZFLAGS commands, 
0406 No commands affect the state of the flags; they remain set or 
0407 cleared as specified by the lest flag switch. 


0409 FLAG EFFECT 
0410 Sree tee 


0411 HOE Halt on error - control is returned to 
0412 runtime services command mode 


0414 LOE Loop on error 

0416 IERs Inhibit all error reports 

0418 IBRe Inhibit all error reports except first 
0419 level (first level contains error type. 
0420 number, PC, test and unit) 


0422 IxRe Inhibit extended error reports (those 
0423 called by PRINTX macro’s) 


0425 PRI Direct messages to line printer 

0427 PNT Print test number as test executes 

0429 BOE “BELL” on error 

0431 UAM Unattended mode (no manual intervention) 
ot a ety oe yb 
0435 tical reporting) 

0437 IDR Inhibit program dropping of units 

0439 ADR Execute autodrop code 

0441 LOT Loop on test 


0443 EvVL Execute evaluation (on diagnostics which 
0444 have evaluation support ) 


0446 *error messages are described in section 3.1 


0449 See the XxXDP+ user's manual for more details on flags. You may 
0450 specify more than one flag with the flag switch. For example, 
0451 to cause the program to loop on error, inhibit error reports 
0452 and type a “BELL” onerror, you may use the following string: 
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3 C 0454 /FLAGS:LOE: IER: BOE 

3 C 0455 

3 C 0456 

3 : ot 3 2.4 HARDWARE QUESTIONS 

, C 0459 When a diagnostic is started, the runtime services will prompt the user 
3 C 0460 for hardware information by typing "CHANGE HW (L) ?”. You must answer 
Fy C 0461 "yY" after a start command unless the hardware information has been 
3 C 0462 “preloaded” using the setup utility (see Chapter 6 of the XXDP+ user's 
; C 0463 Manual). When you answer this question with a "Y", the runtime services 
: C 0464 will ask for the number of units (in decimal). You will then be asked 
3 C 0465 the following questions for each unit. 

: C 0466 

’ C 0467 @ UNITS (D) ? 

3 C 0468 

3 C 0469 Answer with the number of units to be tested (no default). This 

; C 0470 answer will determine how many times the following questions are 

H C 0471 asked. A unit is a logical disk (single platter) on an RC25. 

3 : roti | A maximum of sixteen units will be accepted by the init code. 

: 

: ‘ odin RC25 IP REGISTER ADDRESS (0) 172150 ? 

: C 0476 Answer with the address of the IP Register of one RC25 

; C 0477 controller as addressed by the processor with memory 

3 C 0478 ~ gen y turned off Ci.e., An even 16 bit address in the range 

3 3 abe of 160000 to 177774). 

; : oees RC25 INTERRUPT VECTOR ADDRESS (0) 154 ? 

; C 0483 Answer with the interrupt vector address of the RC25 

Hy C 0484 controller. A vector address in the range of 4 to 774 may be 

$ C 0485 specified. 

3 C 0486 

s : md RC25 BUS REQUEST LEVEL (0) 5 ? , 
; C 0489 Answer with the interrupt priority used by the RC25. Levels 4 

: C 0490 to 7 are accepted. 

H C 0491 

F : pots | UNIT NUMBER TO BRING ONLINE (D) O ? 

: C 0494 Answer with the physical platter number you wish to bring online. 

F C 0495 The removable platter is an even number and the fixed platter is 

; € pete the sequentially following odd number. 

; C 0498 2.5 SOFTWARE QUESTIONS 

3 C 0499 

s Cc 0500 The supervisor will ask the question "CHANGE SW (L) ?. This question is 
5 C 0501 to be answered with ‘Y'. The following message will be printed to the 
8 : oes | console terminal: 

; 3 oes FORMAT IN UNATTENDED REFORMAT MODE (L) YES ? 

F 

F C 0506 A ‘YES’ response (the dofeult) will cause the host to run in UN-ATTENDED 
$ : eed reformat mode (see section 7.2 for description). 

F 

F 0509 A ‘NO’ response will cause the host to run in ATTENDED mode (see section 


0510 7.1 for description). In this mode an operator must be present at the 
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: : aaah console terminal to answer the following 0M formatter software questions: 
3 le 
3 Cc 0513 The DOM will ask the following questions. The question numbers are those 
3 C 0514 used as the DUP question numbers. 
3 Cc 0515 
3 C 0516 0. Enter date: 
3 : Sate Enter the current date in MM-DD-YYYY. 
; 1 
3 C 0519 1. Enter unit number to format: 
3 : Saat : Enter the number of the unit to format. 
Fy 1 
3 C 0522 2. Enter sector size to be used (512/576): 
8 C 0523 This question is for compatibility with other formatters. 
: 3 coos The RC25 formatter will skip this question. 
3 
F C 0526 3. Enter mode to be used (slow/normal/fast): 
: C 0527 This question is for compatibility with other formatters. 
; : os Tne RC25 formatter will skip this question. 
H C 0530 4. Use existing bad block information (y/n): 
: C 0531 If the answer is YES, ea REFORMAT mode format is done. If 
F C 0532 the answer is NO, the mode of format is determined by 
3 f Seas question 5. If the answer is YES, question 5 is skipped. 
: C 0535 S. DOWN-LINE LOAD bad block information (y/n): 
3 C 0536 An answer of NO will cause a RECONSTRUCT mode format to be 
8 C 0537 performed. If an answer of YES is given, a RESTORE mode 
8 C 0538 format will be performed. An answer of NO will skip 
3 C 0539 question 6. 
: C 0540 
Fy C 0541 NOTE: It is the responsibility of the host program to 
5 C 0542 obtain the name of the file to be used for the DOWN-LINE 
3 C 0543 LOAD. 
H C 0544 
3 C 0545 6. Continue if bad block information is inaccessible (y/n): 
8 C 0546 An answer of YES will cause a RECONSTRUCT mode format to be 
; C 0547 done if the formatter cannot read the FCT on the disk or if 
F C 0548 a RESTORE mode format was attempted and the bad block date 
H C 0549 file was unavailable. An answer of NO will cause the format 
3 Cc 0550 to abort if the bad block information is inaccessible. An 
8 : cent answer of NO will terminate the question sequence. 
H C 0553 FCT blocks will be requested via the special OUP seneoge 
: C 0554 code. The first data word in this message will be the FCT 
: C 0555 block (relative to zero) requested by the formatter. All 
; C 0556 DUP sequence numbers for FCT block requests will be 1. The 
3 C 0557 response is e 3 word block from the host. The first word is 
; C 0558 O if the block was successfully retrieved and non-zero if it 
Fy C 0559 was not. The next 2 words contain the UNIBUS address of a 
F : ea | buffer containing the 512 byte block from the FCT file. 
$ 
Fy C 0562 7. Enter serial number: 
$ C 0563 Enter the 64-bit decimal serial number of the disk to be 
3 C 0564 formatted. In the RC25 formatter this number is used only 
3 3 0565 if a RECONSTRUCT mode format is used. 
5 
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: 3 coon 2.6 EXTENDED P-TABLE DIALOGUE 
3 
; C 0569 When you enswer the hardware questions, you are building entries 
: Cc 0570 in e@ table thet describes the devices under test. The simplest 
3 Cc o0s71 way to build this teble is to answer all questions for each 
3 C 05? unit to be tested. If you have a multiplexed device such as 
8 Cc 0573 @ mass storage controller with several drives or ea communication 
8 C 0574 device with several lines, thie becomes tedious since most of the 
3 € r= enswers ere repetitious. 
3 
3 C 0577 To illustrate a more efficient method, suppose you are penn 
FY Cc 0578 e fictionel device, the XY11l. Suppose this device consists o 
’ Cc 0579 a control module with eight units (sub-devices) attached to it. 
3 C 0580 These units ere described by the octel numbers 0 through 7. There 
Fy C 0581 is one hardware rameter that can vary emong units called the 
3 C 0582 Q-FACTOR, Tris Q-FACTOR may be O or 1. Below is a simple way 
: : Sans to build ea table for one xyll with eight units. 
3 
3 Cc 0585 @ UNITS (0) ? 8<CR> 
3 C 0586 
: C 0587 UNIT 1 
3 Cc 0588 CSR ADDRESS (0) ? 160000<CR> 
3 C 0589 SUB-DEVICE @ (0) ? O<CR> 
3 C 0590 Q-FACTOR (0) O ? 1<CR> 
3 C OS91 
3 C 0592 UNIT 2 
3 Cc 0593 CSR ADDRESS (0) ? 160000<CR> 
3 C 0594 SUB-DEVICE @ (0) ? 1<CR> 
3 C 0595 Q-FACTOR (0) 1 2? O«CR> 
3 C 0596 
3 C 0597 UNIT 3 
8 Cc 0598 CSR ADDRESS (0) ? 160000<CR> 
3 Cc 0599 SUB-DEVICE @ (0) 2? 2<CR> 
3 C 0600 Q-FACTOR (0) 0 ? <CR> 
: C 0601 
3 C 0602 UNIT 4 
3 C 0603 CSR ADORESS (0) ? 160000<CR> 
3 C 0604 SUB-DEVICE @ (0) ? 3<CR> 
3 C 0605 Q-FACTOR (0) O 2? =<CR> 
s C 0606 
3 C 0607 UNIT 5 
8 Cc 0608 CSR ADDRESS (0) ? 160000<CR> 
8 C 0609 SUB-DEVICE @ (0) ? 4<CR> 
3 C 0610 Q-FACTOR (0) O 2? =<CR> 
3 C 0611 
$ C 0612 UNIT 6 
8 C 0613 CSR ADDRESS (0) ? 160000<CR> 
3 C 0614 SUB-DEVICE @ (0) ? 5<CR> 
3 C 0615 Q-FACTOR (0) O ? =«<CR> 
8 C 0616 
3 C 0617 UNIT 7 
F C 0618 CSR ADDRESS (0) ? 160000<CR> 
PF C 0619 SUB-DEVICE @ (0) ? 6<CR> 
8 C 0620 Q-FACTOR (0) O ? 1<CR> 
r C 0621 
F C 0622 UNIT 8 
s C 0623 CSR ADDRESS (0) ? 160000<CR> 
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C 0624 SUB-DEVICE @ (0) 2? 7«CR> 


3 
3 C 0625 Q-FACTOR (0) 1 2? =<CR> 

3 C 0626 

3 C 0627 Notice that the default value for the Q-FACTOR changes when oa 

3 C 0628 non-default response is given. Be careful when specifying 

3 C 0629 multiple units! 

3 C 0630 

3 C 0631 As you can see from the above example, the hardware parameters 
8 C 0632 do not vary significantly from unit to unit. The procedure shown 
3 3 Seas is not very efficient. 

3 C 0635 Tre runtime services can take multiple unit specifications however. 
3 3 oeat Let's build the same table using the multiple specification feature. 
3 C 0638 @ UNITS (D) ?. 8<CR> 

3 Cc 0639 

8 C 0640 UNIT 1 

: C 0641 CSR ADDRESS (0) ? 160000<CR> 

3 C 0642 SUB-DEVICE @ (0) ? 0O,1<CR> 

3 C 0643 Q-FACTOR (0) O 2? 1,0<CR> 

8 C 0644 

3 C 0645 UNIT 3 

3 C 0646 CSR ADDRESS (0) ? 160000<CR> 

8 C 0647 SUB-DEVICE @ (0) ? 2-5<CR> 

3 C 0648 Q-FACTOR (0) O ? O<CR> 

3 C 0649 

3 C 0650 UNIT 7 

ry C 0651 CSR ADDRESS (0) ? 160000<CR> 

8 C 0652 SUB-DEVICE @ (0) ? 6,7<CR> 

3 3 — Q-FACTOR (0) O 2? #1<CR> 

$ C 0655 As you can see in the above dialogue, the runtime services will 
3 C 0656 build as many entries as it can with the information given in any 
F C 0657 one pass through the questions. In the first pass, two entries 
8 C 0658 ere built since two sub-devices and Q-FACTORS were specified. Tne 
8 C 0659 services assume that the CSR eddress is 160000 for both since it 
3 C 0660 was specified only once. In the second pass, four entries were 
3 C 0661 built. This is because four sub-devices were specified. The 
3 C 0662 “-" construct tells the runtime services to increment the data 
Fy C 0663 from the first mumber to the second. In this case, sub-devices 
3 C 0664 2. 3. 4 andS were specified. (If the sub-device were specified 
Fy C 0665 by eddresses, the increment would be by 2 since addresses must 
; C 0666 be onan even boundary.) The CSR addresses and Q-FACTORS for 
3 C 0667 the four entries ere assumed to be 160000 and 0 respectively 
3 C 0668 since they were only specified once. The last two units are 
3 : ye specified in the third pass. 

8 

3 C 0671 The whole process could have been accomplished in one pass as shown 
Fy C 0672 below. 

8 C 0673 

3 C 0674 ®@ UNITS (0D) ? 8<CR> 

$ C 0675 

Fy C 0676 UNIT 1 

8 C 0677 CSR ADDRESS (0) ? 160000<CR> 

F C 0678 SUB-DEVICE ® (0) 2? O-7-CR> 

3 Cc 0679 Q-FACTOR (0) i?) ? 0.1,.0....1,1<CR> 

Fy C 0680 


D2 
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3 C 0681 As you can see from this example, null replies (commas enclosing 

3 : Sees a null field) tell the runtime services to repeat the last reply. 

3 

3 C 0684 2.7 QUICK START-UP PROCEDURE (XXxDP-+) 

3 C 0685 

3 C 0686 To start-up this program: 

3 C 0687 

3 C 0688 1. Boot XXDP+ 

3 C 0689 

3 C 0690 2. Give the date 

Hy C 0691 

3 C 0692 3. Type "R ZRCHBO”, where name is the name of the bin or bic 
FY C 0693 file for this program 

3 C 0694 

H C 0695 4. Type “START” 

3 C 0696 

3 : Sone S. Answer the “CHANGE HW" question with "Y” 

3 rod 6. Answer all the hardware questions 

3 

F : 48-4. 7. Answer the “CHANGE SW" question with “N” 

3 C 0703 When you follow this procedure you will be using only the 

: C 0704 defaults for flags and software parameters. These defaults 

3 : the ere described in sections 2.3 and 2.5. 
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8 3 dn dd 2.8 PID (PROCESS INDICATOR) WORDS 
: 
: Cc 0709 Tne process indicator words (PID) are maintained by the remote 0M program 
8 : Seat and indicates to the host the DM programs progress running in the controller. 
3 
3 C 0712 These PID words ere then obtained by the host vie the DUP GET_DUST_STATUS 
: Cc 0713 command. The newly obtained PID are compared to previous PID words. If 
3 Cc 0714 the PID has not increased since the last GET_DUST_STATUS then the remote 
; 3 the program is to be considered dead and the connection to the controller broken. 
: € 0717 However if the PID value has increased since the last GET_DUST_STATUS then 
: Cc 0718 the remote program is to be considered still running. The new PID words 
3 " 44.34 are saved and command time out waits reinitiated. 
F 
3 C 0721 This host code will print out to the console terminal the PID values after 
3 C 0722 each GET_DUST_STATUS while the formatter is running in the controller. 
3 " ores The printing format is as follows: 
; : 0725 FORMATTER PROGRESSING: PID HI*xxxxxxx(0) PID LO*xxxxxx(0) 
: C 0727 To further demonstrate to the host the progress of the DM formatter 
3 3 Sree the following is performed: 
: C 0730 Each time the DM formatter calls in a new 5 ey | from host 
F C 0731 memory the low PIO word is cleared and the high PID word is 
3 C 0732 incremented. The operator can then be observed when new 
8 3 Bree overlays are called into 0M memory. 
; 3 dha 2.9 HOST/DM FORMATTER RUN TIME MESSAGES 
: C 0737 All host: messages, fatel errors or operator prompts ere printed in UPPER 
3 3 0738 case characters while all OM formatter: messages, fatel errors, completion 


0739 information or operator prompts are printed in lower case characters. 
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’ C 0740 3.0 ERROR INFORMATION 
3 C 0741 : 
3 . orate 3.1 TYPES OF ERROR MESSAGES 
3 
: C 0744 Due to the fact that this is an utility and not a diagnostic error macro 
FY Cc 0745 calls will not be used by this host code to report errors. Instead all 
3 C 0746 errors will be printed to the operator via the PRINTF macro using the 
3 : rae prefix "SFTLERR- error message text” indicating this to be a fatal error. 
3 
3 dint 3.2 SPECIFIC ERROR MESSAGES 
3 : eves DM Code Error Messages 
3 C 0753 All errors returned are fatal. Error messages returned by the RC25 
F C 0754 formatter are as follows. The error numbers given are the DUP error 
: Cc 0755 message numbers. 
Fy C 0756 
3 C 0757 1 “GET STATUS failure” 
Fy Cc 0758 2 “LESI send error” 
: Cc 0759 3 “Unsuccessful LESI command” 
3 C 0760 4 “LESI receive error” 
3 C 0761 5 “UNIBUS I/0 error" 
: C 0762 6 "“Formatter initialization error” 
3 C 0763 7 “Nonexistent unit number” 
3 C 0764 8 “DBN/XBN format error (drive FORMAT command fai led)" 
F C 0765 9 “FCT does not have enough good copies of each block” 
3 C 0766 10 "SEEK error” 
; C 0767 11 “RCT does not have enough copies of each block” 
3 C 0768 12 “LBN format error (drive FORMAT command fai led)" 
3 C 0769 13. “FCT write error” 
FY C 0770 14 “RCT read error” 
3 C O771 15 "RCT write error” 
Fy C 0772 16 "RCT full” 
3 C 0773 17 “FCT read error” 
8 C 0774 18 “FCT nonexistent” 
8 C 0775 19 “FCT downline-load error” 
FY C 0776 20 “Drive init timeout” 
; C 0777 21 ~eapogel response to start-up question” 
3 C 0778 22 “WARNING - possible head addressing problems - run diagnostics” 
Fy Cc 0779 23 “INPUT Error" 
3 : 0780 


Ge 
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3 C 0782 Host Error Messages 
3 C 0783 
3 C 0784 : 
: : rth ! Generic self-detected fatal port/controller errors 
3 $ 
: C 0787 SF TLERR- UNRECOGNIZABLE ERROR CODE 
H C 0788 $F TLERR- ENVELOPE/PACKET READ (PARITY OR TIMEOUT) 
3 C 0789 SFTLERR- ENVELOPE/PACKET WRITE CPARITY OR TIMEOUT 
3 C 0790 $F TLERR- CONTROLLER ROM AND RAM PARITY 
3 C 0791 SF TLERR- CONTROLLER RAM PARITY 
3 C 0792 $FTLERR- CONTROLLER ROM PARITY 
3 C 0793 SFTLERR- RING READ (PARITY OR TIMEOUT) 
3 C 0794 SFTLERR- RING WRITE (PARITY OR TIMEOUT) 
8 C 0795 SFTLERR- INTERRUPT MASTER 
’ C 0796 SF TLERR- HOST ACCESS TIMEOUT 
8 C 0797 SFTLERR- CREDIT LIMIT EXCEEDED 
8 C 0798 SFTLERR- BUS MASTER ERROR 
3 Cc 0799 $F TLERR- DIAGNOSTIC CONTROLLER FATAL ERROR 
3 C 0800 SFTLERR- INSTRUCTION LOOP TIMEOUT 
3 C 0801 $FTLERR- INVALID CONNECTION IDENTIFIER 
3 C 0802 SFTLERR- INTERRUPT WRITE 
$ C 0803 $F TLERR- MAINTENANCE READ/WRITE INVALID REGION IDENTIFIER 
8 C 0804 SFTLERR- MAINTENANCE WRITE LOAD TO NON-LOADABLE CONTROLLER 
ry C 0805 SF TLERR- CONTROLLER RAM ERROR (NON-PARITY ) 
Fy C 0806 SF TLERR- INIT SEQUENCE ERROR 
FY C 0807 $F TLERR- HIGH LEVEL PROTOCOL INCOMPATIBILITY ERROR 
H C 0808 SFTLERR- PURGE/POLL HARDWARE FAILURE 
3 C 0809 SFTLERR- MAPPING REGISTER READ ERROR (PARITY OR TIMEOUT) 
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SF TLERR - 
SF TLERR- 
SF TLERR- 
SF TLERR- 
$F TLERR- 
$F TLERR- 
$F TLERR- 
$F TLERR- 
SF TLERR - 
SF TLERR- 
$F TLERR- 
$F TLERR- 
SF TLERR - 
$F TLERR- 
$F TLERR- 
SF TLERR- 
SF TLERR- 
$F TLERR- 
$F TLERR- 
SF TLERR - 
SF TLERR- 
$F TLERR- 
$F TLERR- 
$F TLERR- 
$F TLERR- 
$F TLERR- 
$F TLERR- 
$F TLERR - 
$F TLERR- 
$F TLERR- 
SF TLERR- 
$F TLERR- 
$F TLERR- 
$F TLERR- 
SFTLERR- U 
SF TLERR- 
$F TLERR- 
$F TLERR- 
SF TLERR - 
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RC25 Self-detected fatal port/controller errors 


VAX READ/WRITE ERROR ON INTERRUPT 

INCONSISTENCY AT U.BFIL 

INCONSISTENCY AT v BMTY 

INCONSISTENCY AT U.ALOC 

INCONSISTENCY AT SERVO ENTRY (PIP SET) 

INCONSISTENCY AT SERVO ENTRY CERR SET) 

INCONSISTENCY AT U.SEND 

INCONSISTENCY AT U.RECV 

INCONSISTENCY AT U.ATTN 

INCONSISTENCY AT U.ONLN 

ILLEGAL D REQUEST (U.QDRQ) 

FENCE-POST ERROR AT PROTAB 

BAD PACKET DEQUEVED AT U.DONE 

UNEXPLAINED D-PROC SUSPENSION (U.. TDS) 

DUP PACKET 0-Q@ FAILED (XFC 34/35) 

INCONSISTENCY AT U.HTST 

INCONSISTENCY AT U.SEKO 

INCONSISTENCY AT U.CKSV 

0.OPCD FOUND ILLEGAL OPCODE 

O0.CSF FOUND ILLEGAL OPCODE 

UNKNOWN BAD ORIVE STATUS AT 0.OSTS 

ILLEGAL XFC EXECUTED BY OM 

D PICKED UP A ZERO SCB.0B 

INCONSISTENCY AT D IOLE LOOP 

DM WORD COUNT ERROR ON HOST DMA/SEND/RECV 

UNKNOWN DISPLAY FAULT CODE AT D.DFLT 

ORIVE NOT FAULTING IN P.OFLN STATE 

U POWER UP DIAGNOSTICS FAILED 

D POWER UP DIAGNOSTICS FAILED 

ADAPTER CARD FAILURE 

EC.TMR TIMED OUT 

U.SEND/U.RECV RING READ 5 niet 

UNKNOWN WAITRV REASON AT D.RVCT 

D.ARCS DID NOT FIND CLOSEST UNDONE ZONE 
. SEEK FOUND SEEK TO ILLEGAL TRACK 

U: HTST INIT DIAG OMA WRITE FAILED 

U.HTST INIT DIAG DMA COMPARE FAILED 

U.SYOR FOUND SS.DER SET AND SS.SPN NOT SET 

MASTER DRIVES ACLO ASSERTED 
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$F TLERR- 
$F TLERR- 
$F TLERR- 
$F TLERR- 
$F TLERR- 
$F TLERR- 
$F TLERR- 
$F TLERR- 
$F TLERR- 
$F TLERR - 
$F TLERR- 
SF TLERR- 


SFTLERR- UNKNOWN INTERRUP 


$F TLERR- 
SF TLERR- 
$F TLERR- 
$F TLERR- 
SF TLERR- 
$F TLERR- 
SF TLERR - 
$F TLERR- 
$F TLERR- 
$F TLERR- 
SF TLERR- 
SF TLERR- 
SF TLERR- 
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: Host runtime fatel error messages 


NON-EXISTENT RC25 REGISTER ADRS xxxxxx 

DUP SERVER ACTIVE AFTER INITIALIZATION 

DUP SERVER INACTIVE AFTER EX_SUP_PROG COMMAND 
RESPONSE STATUS ERROR: actual status error message 
HOST/CONTROLLER OUT OF SEQ 

REMOTE PROG NOT RUNNING 

UNKNOWN RETURN STATUS CODE 

COM AREA INIT ERROR 

PORT/HOST SYNC ERROR 

MESSAGE LENGTH ERROR 

UNKNOWN ENOCODE RECEIVED 

ADAPTER fete 2 — 

INIT SEQ STEP TIMED OUT 

INIT SEQ COMPARE ERROR 

UNEXPECTED ATTENTION END MESSAGE RECEIVED 
UNEXPECTED COMMAND OPCODE IN END MESSAGE RECEIVED 
UNEXPECTED SERIOUS EXCEPTION END MESSAGE RECEIVED 
INVALID COMMAND END MESSAGE RECEIVED 

UNKNOWN MESSAGE TYPE RECEIVED 

OUTSTANDING COMMAND BUFFER FULL 

OUTSTANDING COMMAND BUFFER OUT OF SYNC ERROR 
UNKNOWN MESSAGE NUMBER RECEIVED 

FILE READ ERROR 

PORT/CONTROLLER TIMEOUT ERROR 

ILLEGAL FCT FILE LENGTH 
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J 
! Init code fatel error messages 
' 


$SFTLERR- NO ADDITIONAL UNITS TO FORMAT - ABORTING 
SFTLERR- INIT CODE RE-ENTERED DUE TO PWR FAIL 

SFTLERR- ABORTING HOST AND REMOTE PROGRAMS 

$FTLERR- ILLEGAL NUMBER OF UNITS SELECTED 

SFTLERR- LIMIT OF SIXTEEN UNITS PER FORMATTING SESSION 
SFTLERR- RC2S5 CONTROLLER INITIALIZATION ERROR 

SFTLERR- PROTOCOL VIOLATION ERROR 

SFTLERR- COMMUNICATION AREA INIT ERROR 

a 


Dup return status codes 


SUCCESSFUL 

INVALID COMMAND 

NO REGION AVAILABLE 
NO REGION SUITABLE 
PROGRAM NOT KNOWN 
LOAD FAILURE 
STANDALONE 

’ 


MSCP return status codes 


SUCCESS 

INVALID COMMAND 

COMMAND ABORTED 
UNIT -OF FLINE 

UNIT -AVAILABLE 

MEDIA FORMAT ERROR 
WRITE PROTECTED 

COMPARE ERROR 

DATA ERROR 

HOST BUFFER ACCESS ERROR 
CONTROLLER ERROR 

ORIVE ERROR 

MESSAGE FROM AN INTERNAL DIAGNOSTIC 
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3 : 4434 4.0 PERFORMANCE AND PROGRESS REPORTS 
: C 0921 The formatter issues the following messages upon normal completion. All 
; C 0922 but the last are sent as DUP informational messages. The last is sent 
3 C 0923 as ea DUP termination message. 
3 C 0924 
: C 0925 1. “format completed” 
: C 0926 
3 C 0927 2. "n revectored LBNs” 
F C 0928 Where n is the number of LBNs revectored in the user data 
3 C 0929 area. 
3 C 0930 
3 C 0931 3. "n primary revectored LBNs” 
; C 0932 Where n is the number of LBNs in message #2 which were 
3 C 0933 primary revectors. 
Fy C 0934 
; C 0935 4. “n secondary/tertiary revectored LBNs"” 
; C 0936 Where n is the number of the LBNs in message #2 which were 
: : poe 4 secondary or tertiary revectors. 
F C 0939 5. “n bad blocks in the RCT area due to date errors” 
3 C 0940 Where n is the number of blocks in the total RCT area which 
: : se | were bad due to errors in the data portion of their sectors. 
3 C 0943 6. “n bad blocks in the RCT due to header or timing errors” 
8 C 0944 Where n is the number of blocks in the total RCT area which 
8 C 0945 were bad due to errors in the header or timing areas of 
3 C 0946 their sectors. 
3 C 0947 
Fy C 0948 7 “n bad blocks in the DBN area due to date errors” 
Fy C 0949 Where n is the number of blocks in the OBN area which were 
3 : oan bad due to errors in the data area of their sectors. 
: C 0952 8. "n bad blocks in the DOBN area due to header or timing 
s C 0953 errors” 
3 C 0954 Where n is the number of blocks in the DBN area which were 
Fy Cc 0955 bad due to errors in the header or timing area of their 
Fy C 0956 sectors. 
s Cc 0957 
8 Cc 0958 9. "“n bad blocks in the XBN erea due to data errors” 
ry Cc 0959 Where n is the number of blocks in the XBN area which were 
3 : rae bad due to errors in the date area of their sectors. 
3 C 0962 10. "n bad blocks in the XBN area due to header or timing 
s C 0963 errors” 
s C 0964 Where n is the number of blocks in the XBN area which were 
F C 0965 bad due to errors in the header or timing area of their 
Fy C 0966 sectors. 
$ C 0967 
8 C 0968 11. “n bad RBNS” 
3 C 0969 Where n is the number of blocks in the RBN area which were 
FY : pode bad due to errors in the date area of their sectors. 
F Cc 0972 12. “n blocks retried on the check pass" 
3 C 0973 Where n is the number of blocks which had an error on the 
3 : ade first read attempt after formatting. 


Le 
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Cc 0976 13. “FCT used successfully” or 


0978 14. “FCT was not used” 

0979 Dependin on the answers to the start-up questions and the 
0980 availability of the bad block information (FCT). This 
0981 message has the DUP termination message code. 


0983 5.0 DEVICE INFORMATION TABLES 
a 
0986 i. Hardware parameter coding questions 


0988 HW_Q1_IP IP REGISTER ADORESS 
0989 HW_Q2_VECTOR = INTERRUPT VECTOR ADDRESS 
0990 HW_Q3_BR BUS REQUEST LEVEL 

0991 HwW_Q4_UNIT UNIT NUMBER TO FORMAT 
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B. The RCT tracks will be formatted. 


Me 


6.0 TEST SUMMARIES 

6.1 Reformat Mode Procedure 

Reformat mode is accomplished in four sections: 
Table Setup 


te 
w 
8 
> 
© 


Check Pass 


6.1.1 Table Setup 


This section will 
revectoring. 


A. The presence of a good FC! will be determined by the ability 
to read each block in an FCT copy, and by verifying the data 


contained in the FCT Information Block. 


If none of the four FCT copies is good, the Formatter 
either: 


1. Abort the program if DM software question 6 was 


answered with a ‘NO’ 


2. Will do a Reconstruct mode if software question 46 


was enswered with a ‘YES’. 
(Software question #6 is: 
information is inaccessible (Y/N):). 

erea will be marked with a header code of 11. 


the format will be aborted, as the media is unusable. 


C. Both outer and inner DBN areas will be formatted with here. 
formatted with +20. 


Two of these inner DBN tracks will be 
and -20. offset for diagnostic purposes. 


D. A partial RCT will be built from the FCT: 
Information Block will be assembled. 
Descriptors coded for primary 
transformed into RCT entries. 
the PBN address into an LBN address, and entering it 


revectoring will 


the corresponding RBN descriptor slot for the particular 
Other RBN descriptors will be 
they have a 
corresponding RBN, or as nulls (code 10) if they do not. 


Two copies of the RCT will be written to each of the two RCT 


track, with a code of O02. 
designated as unallocated (code 00) if 


tracks. 


All LBN’s marked for secondary revectoring will be 
an “R2” Table. 


5-Apr-1984 13:43:03 
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Continue if bad block 


Bad blocks in the RCT 
If ea bad 
block occurs in the same position in each copy of the RCT, 


The RCT 
FCT Bad Block 
be 


This is done by converting 


stored i 
Replacement RBN’s for these LBN's will be 
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build an RCT skeleton and perform part of the primary 
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Ne 


resolved after primary revectoring is completed. 


6.1.2 


Scanning 


The following section 6.1.2 generally describes the scanning philosophy 
used by this formatter. Specific scanning philosophies for each formatting 
mode is as follows: 


REFORMAT mode: 

In this mode the FCT file is accessible. The RCT file is built from 

the FCT and the LBN area is scanned for additional bad blocks. This mode 
will scan only for data pattern WwW. 


RESTORE mode: 

In this mode an external FCT file is br t in form the Host and written 
to the media's FCT track. After the FCT file has been restored a normal 
Reformat mode is performed scanning for data pattern W only. 


RECONSTRUCT mode: 

In this mode the FCT file is inaccessible. The FCT I.D. block is not 
formatted but rather read/write scanned with all date patterns. The I.D> 
is then rebuilt indicating zero FCT entries. The Reformat mode overlay 
is then called in to DM space and will read/write scan the LBN area with 
ell date patterns. 


This section writes headers throughout the LBN ares. It scans for 
additional bad blocks, and completes the primary revector ing. 


Scanning will start at LBN Track 0 (Top Surface OGB) and progress to LBN 
Track Max (Bottom Surface OGB) following logical ordering of LBN tracks. 


E. An LBN track is written with headers and Date Pattern wW, 
using the Format Track on Index XFC. A failure of this xFC 
will result in 10 retries. If all retries fail, the format 
will be aborted. 


The header codes connote block status. They will be 
determined b the FCT Bad Block Descriptors as in the 
following table: 


FCT Descriptor Code Header Code : 
et i re 7 
Not listed : 00 - Good LBN 
12 or 14 : OS - Primary revector : 
02 or 04 : 03 - Secondary revector : 
O1 ‘ : 11 - Secondary revector-: 
: header problem 
Any for RBN : 11 - Unusable RBN 
ttt te eee eee ee tees | lll ee | 
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3 C 1107 NOTE 
3 C 1108 
3 C 1109 If the RBN is not listed in the FCT, a single block 
’ C 1110 per track may be designated for primary revector ing 
’ : tte with an FCT descriptor code of 12 or 14. 
3 
Fy Cc 1113 If there are no bad blocks in the track, the forced error 
3 C 1114 indicator will be set in the RBN at format XFC time by 
3 3 tte complimenting its expected EDC field. 
3 
3 C 1117 F. All blocks in the track will be read without revectoring 
3 Cc 1118 enabled, end compared to Pattern W. A write-read-compare 
3 Cc 1119 sequence will then be performed on each block in the track 
: 3 rie using Pattern M, which is the compliment of Pattern W. 
3 
3 C 1122 Error -free blocks will be written with LBN-unique Pettern 1. 
3 C 1123 If the treck hes e primary revector block, its dete field 
3 C 1124 will be written with 128 copies of the tracks RBN address, 
3 C 1125 end the RBN will be written with LBN-unique Pattern 1 for 
3 . t13] the repleced block. 
3 
3 C 1128 Each block, except used RBN and secondary replecement 
8 C 1129 blocks, is read and its date compared to the expected value. 
3 C 1130 This will be done with revectoring enabled for e primary 
3 3 it replecement block, and disabled for the others. 
3 
; 3 4 te process is repeated using LBN-unique patterns 2, 3 and 
3 ‘5 
3 C 1135 
3 C 1136 G. Any error, including correctable errors, will result in 4 
3 C 1137 retries. Any block failing these will be considered ea bad 
3 C 1138 block. If no primery revector block already exists in the 
ry C 1139 track, the first to feil will be primary revectored by 
8 C 1140 making an RCT entry in its RBN descriptor, pen eny it 
8 3 res with ea code of 05, and resetting the RBN forced error flag. 
3 C 1143 Other new bed blocks will be reneadered with secondary 
8 Cc 1144 revector codes of O03 or 11. depending on the presence of 
8 " tr header errors. 
; C 1147 If any new bed block(s) is found, steps D and E will be 
8 Cc 1148 pertielly repeated to include the additional bad block 
; C 1149 information, and verify the format write. The 
3 C 1150 write-read-compare sequences with patterns 2, 3 and 4 will 
: : ttt not be repeated, however. 
3 
Fy C 1153 H. Addresses of blocks to be secondary revectored will be 
; C 1154 eccrued in ean "“R2 Table” within the program, until 127 
Fy Cc 1155 entries ere made. At this time, 8 copies of the table will be 
8 . 433 saved on outer DBN tracks starting at DBN block 0 top surface. 
° 
Fy Cc 1158 
Fy Cc 1159 6.1.3 Replecement 
H C 1160 
3 C 1161 This section will complete the RCT and resolve all secondary bad block 
3 f an replacement. 
3 


C3 


1207 A. The FCT tracks will be formatted usi the Format Track on 
1208 Index XFC. A failure of this XFC will result in 10 retries. 
1209 If ell retries fail, the format will be aborted. 


1211 The header code of each block will be 12, indicating good 
1212 FCT blocks. The date will be pattern WwW. 


1214 B. Eech block will de read and its date verified. 
1215 Write-read-compere sequences will then be performed on each 
1216 block, using patterns M, 1, 2, 3 and 4. 


1218 Any errors will result in 10 retries. Any block failing a 
1219 retry will be considered a bad block. 
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: C 1164 I. When all tracks have — the scanning section, The "R2 

3 C 1165 Tables" will be read from the media. The secondary 

’ C 1166 revectors will be resolved in the ACT, Finding RBN Bad Block 

3 3 tr Descriptors through the Ping-pong algorithm. 

3 6 

3 C 1169 Tracks whose RBN is assi to be used for secondary 

3 C 1170 revectoring will be written to reset the forced error 

FY C 1171 indicator in the RBN, 

H Cc 1172 

3 C 1173 

3 : tN 6.1.4 Check pass 

3 

3 C 1176 This section makes write and read passes of the media as a final check 
3 3 tite to verify revectoring capabilities. 

3 

3 C 1179 J. Starting with the LBN track pair nearest the 0GB, the date 

3 C 1180 fields of all blocks on the media will be written as 

8 C 1181 follows: 

FY C 1182 

’ C 1183 Block Type Date 

Fy C 1184 

3 C 1185 Good Pattern 3 

3 C 1186 

3 : rt Primary revectored Pattern 3 of replaced block 

3 : ttt Secondary revectored Pattern 3 of replaced block 

3 3 as Used RBN Pattern 3 of replaced block 

3 C 1193 Sterting with the top surface LBN track nearest the OGB all 

: C 1194 Host Application Blocks will be read to test for 

Fy C 1195 revector i capabilities. Feilure of any read or write will 

3 C 1196 result in 10 retries. Feilure of all retries will result in 

; 3 ites e fatel error message sent to the host and the format aborted. 

3 

3 Cc 1199 

3 3 ioe 6.2 Restore Mode Procedure 

; 

8 C 1202 Restore mode will only be run by DIGITAL Manufacturing personnel. It 
3 C 1203 requires en external copy of the FCT produced when the platter was 
8 C 1204 manufactured and is stored on the System Boot Media. This procedure is 
: : 1205 es follows: 

; 

8 c 

8 c 

Fy 4 

3 Cc 

F c 

3 Cc 

8 Cc 

: c 

3 “ 

3 Cc 

3 Cc 

Fy . 

F Cc 

3 c 


D3 
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3 C 1221 C. The tracks will be reformatted, if necessary, to change bad 
3 : 1228 block header codes to 11. 

3 

: C 1224 D. The operator will be queried for the original FCT File name. 
3 C 1225 The FCT file will then be inputted from the boot device and 
’ " acer sent to the DU when requested. 

3 

3 C 1228 E. Two copies of the FCT will be written to each FCT track. 
3 3 a1} These will include bad blocks found in step B. 

3 

3 C 1231 F. This mode will be aborted if any FCT sector fails in all 4 

3 C 1232 copies. The RECONSTRUCT mode will then be called in if the 
Fy C 1233 option to continue if the FCT file is inaccessible else the 
3 3 ‘ses formatter will be aborted. 

F 

3 C 1236 G. The program will automatically enter the Format Mode, and 
3 C 1237 proceed as in 4.1 above. 

3 C 1238 

FY Cc 1239 

3 : ty 6.3 Reconstruct Mode Procedure 

3 

: 3 Th This mode will be performed if: 

3 

3 C 1244 1. The operator has explicitly requested tnis as the formatting 
3 : =. mode by answering ‘NO’ to the following software questions: 
3 

3 C 1247 . “Use existing Bad Block information?” 

’ " es . "Down-line load Bad Block information?” 

: C 1250 2. The Operator has responded with ea ‘YES' to the software 
3 C 1251 question: 

3 Cc 1252 

3 C 1253 . "Continue if Bad Block information is inaccessible?” 
8 C 1254 and the Bad Block file is discovered inaccessible 
3 : oo. during ea Reformat or Restore Formatting Mode. 

iT 

F 3 pid Reconstruct formatting procedure is as follows: 

; 

; : tt 1. Sector 0 of each FCT copy will be read/write scanned. 

; C 1261 Tne Formatting process will be aborted if all four copies of 
3 C 1262 Sector O ere bed. 

3 C 1263 

s C 1264 2. The Volume Information Block (Sector 0) will be 
8 : aoe reconstructed using the following information: 

3 

3 C 1267 . Media Mode = 512 Byte Format 

3 C 1268 

Fy : yt . Formatting Instance Number = 0 

3 

F : ert . Volume Serial Number = Operator Supplied S.N. 
: C 1273 . Time of First Formatting = Operator Supplied Date 
3 C 1274 CVAX/VMS Format ) 

3 Cc 1275 

$ C 1276 . Time of Most Recent Formatting + Operator Supplied Date 
PF C 1277 (VAX/VMS Format) 


ES 
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C 1278 
tee . Number of Used 512 Table Entries = 0 
ptt . Number of Used 576 Table Entries = 0 
ot . Remaining Words Zeroed 
1285 3. The Volume Information Block is then written to each FCT 
iss copy and read back for data integrity. 
1288 Read Failures at all four copies will cause the formatting 


process to abort. 


1292 NOTE 
1294 Remaining FCT Sectors 1 thru 15 are not altered. 


1297 4. The formatting process will then perform the Reformat Mode 
1298 Procedure. 
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7.0 HOST TEST SUMMARIES 
7.1 ATTENDED FORMAT MODE 
In this HOST mode the operator must be present at the console terminal 


to respond to DM formatter software questions. Via these software questions 


the operator can choose from any of the three formatting modes (REFORMAT, 
RESTORE or RECONSTRUCT) and can specify the unit number to be formatted. 
The unit number given to the DM formatter however must be the same unit 
the host reported bringing on-line. 


7.2 UN-ATTENDED REFORMAT MODE 


In this HOST mode a REFORMAT mode will pence ty ae be performed on all 
physical unit numbers contained within operator built P_Tables. 


When this mode is selected (which is the hosts default mode) the host 
will ask the operator for the date in the same format as the 0M formatter 
would. This date is then automatically given to the DM formatter and the 
ee eS ame within the current P_Table is given to the DM as the 
uni ° format. 


In this mode the operator can select up to 16 units (a unit — @ physical 
© 


platter) to format and be free to leave the console terminal whi 
units are being formatted. 


the 
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8.0 APPENDIX 
APPENDIX A 
GLOSSARY 

OBN Diagnostic Block Number. A number of per surface ere reserved 
for diagnostic use. These tracks are called the DBN area. 

OM Diagnostic Machine. An interpreter built into the RC25 
firmmare which is used to execute programs downline loaded 
into the RC25's buffer memory. 

EOC Error Detecting Code. A means of verifying correct controller 
operation. 

FCT Factory Control Table. A 16 sector table containing volume ID 
information and e map of bad blocks on the media. The FCT is 
written as part of the initial media formatting. 

FRU AN Replaceable Unit. An item which may be exchanged in the 

1e . 

IGB Inner Guard Bands. The guard bands closer to the spindle. 

Ip Initialization and Polling Register. This register is used 
for port control. 

LBN Logical Block Number. Host visible blocks including the Host 
Application Area and the RCT tracks. 

mSCP Mass Storage Command Protocol. The method of communication 
used between the host and the RC25 over the bus. 

OGB Outer Guard Bands. The guard bands further from the spindle. 

PBN Physical Block Number. The absolute address of a block on 
RC25 media. 

RBN Replecement Block Number. RC25 nas one RBN per track for bad 
block replacement. 

RCT Replacement and Caching Table. A 16 sector table containing 
media ID information and ea map of the current bad block 
locations. 

RC RC25 product name. 

SA Stetus, Address and Purge Register for port control. 

XFC Extended Function Call. Instructions which interface 


G3 


Diagnostic Machine code to the RC25 microcode. 
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APPENDIX B 
BAD BLOCK REPLACEMENT 


Bad block replacement is an addressing technique for 
block with a one. Tne block which 
replacement block, or RBN. 


Each RC25 track has 32 blocks. In the host-addressable area, the first 
thirty-one are for normal data storage, and are called Logical Blocks, 
or LBNs. The last block on each of these tracks is an RBN. 


If a single bad block exists on a track, it can be replaced by the RBN 
of that track. This is called Primary replacement. 


replacing a bad 
replaces it is called a 


If other bad blocks are found in the same track, they must be 


replaced 
by unused RBNs of other tracks. 


This is called Secondary replacement. 


Two types of tables record bad block information for the media. One is 
the Factory Control Table (FCT), which is written on the media at the 
factory. It is a map of the bad blocks caused by the manufacturing 
process. The other is the Replacement and Cachi Table (RCT). which 
includes both the FCT information, and bad block information uncovered 
by the latest formatting of the media. There are four copies of each 
table per unit. 
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APPENDIX C 
FCT 
The basic unit of the FCT is the Bad Block Descriptor. This descriptor 
gives the Physical Block Address of the bad block, and a four bit code 
indicating why it was retired. 


The Physical Block Address, or PBN, is the absolute address of a block 
anywhere on the media, without the distinction of host-accessibi lity. 


There ere a variable number of Bad Block Descriptors in the FCT. These 
descriptors are sorted in descending track order, and in ascending PBN 
order within tracks. 
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APPENDIX D 
RCT 


The basic unit of the RCT is the double-word RBN Descriptor. There are 
<0 of these, one for each RBN in the host-accessible LBN erea of the 
1@. 

The position of each RBN Descriptor in the RCT is fixed. The first RBN 
Descriptor is associated with the RBN block in the first host- visible 
os — second descriptor with the RBN of the second host- visible 
track, etc.. 

In the format process, the FCT is given. Four copies of it ere found on 
the media; two on each FCT track. The RCT is rebuilt from the FCT 
entries and additional bed block information is gathered in a scan pass. 
Primar replecement may be possible for one block per track if 
identified as bed by either of these sources. The tracks RBN must 
itself be a good, unused block. 


Primary replacement is accomplished by: 
* Making the bad blocks header code 05. 


« Writing the bad blocks date field as 128 
copies of its tracks RBN address. 


* Writing the address of the bad block to the associated 
RBN Descriptor in the RCT (with a code of 02). 


age? iy es is needed for bad blocks which do not have a good, 
unused block. 

Secondary replacement is accomplished similarly to Primary Replacement. 
but first an unused RBN of another track must be found. 


* Find en unused RBN Descriptor in the RCT, 
using the Ping-pong algorithm. 


* Make the bad blocks header code 03 or 11, 
depending on error type. 


# Write the bad blocks data field with 128 
copies of the target RBN address. 


* Write the address of the bad block to the associated 
RBN Descriptor in the RCT (with a code of 03). 


After replacement an attempt by the host to access a replaced block will 
result in access to the block with which it had been replaced. 

Good blocks are headered with codes of 00. 

To help detect addressing problems, unused RBNs will have a forced error 
indication set by complimenting their EDC fields. 
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APPENDIX E 
DATA PATTERNS 
Six patterns will be used during the scan pass. 
Pattern W is a pseudo-random pattern, with the LBN address as the first 


word. Pattern M™ is its compliment. Its use will assure that all date 
bits can toggle. 
Patterns 1 thr 4 are made up of single word elements. Tnese 
elements are as follows: | 
Element A = 071311. This causes peak shift in data encoding. 
Element B = 106466. This causes single transitions spaced by 


1. 2. 3 and 4 zeros. 


This causes both the highest and lowest 
it ti of transitions in the encoding 
ogic 


Element C = 043146. 


Element D = 154631. This also causes both the highest and 
lowest frequency of transitions in the 
ancoding logic. 

Element L = 17NNNN. Where NNNN is the LBN address to which the 


pattern is written. 
These elements are assembled into patterns 1 through 4 as follows: 


Pattern 1 = LBBAAABBBBAAAAABBBBBBAAAAAAABBBBBBEB etc. 
Pattern 2 = BLABBBAAAABBBBBAAAAAABBBEBBBAAAAAAAR etc. 
Pattern 3 = LDDCCCDDDDCCCCCDDDDDOCCCCCCCDDDDDDDD etc. 
Pattern 4 = DLCDDDCCCCDDDDDCCCCCCDDDDDDDCCCCCCCC etc. 


SEQ 0036 
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C 1517 Embedding the LBN address within the patterns gives them LBN-uniqueness. 


1518 This feature is taken advantage of in validating ee 


1520 Three steps ere taken to insure the date will not “interfere with 
sass Secondary Revectoring by matching the “Compare 128” algorithm. These 
are: 


1524 # The high four bits in every word contain invalid header codes. 
1526 * Before secondary revectoring is attempted, blocks not involved 
1527 with revectoring will be written with data fields which 
1528 contain no 32-bit repetitive patterns. 


1530 # When the format is complete, no unrevectored blocks will 
1531 contain data which has 32-bit repetitive patterns. 


oe Ge Ff G+ Ge oe oF Ge OF GF Ge OF OF os OF OF 
nNNnNNnNn Nn NNnNNONnOoONNANH 
f 
uw 
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SEQ 0038 
ZRCHB 1 ZRCHBO RC25 DISK FORMATTER 5-Apr-1984 13:43:03 VAX-11 Bliss-16 V3-555 Page 38 
REV B PATCH 00 USER DOCUMENTATION 22-Feb-1984 12:03:49 SPIDERSUSERS: [NEALE .AZTEC ]ZRCHB1. B16;7°C (25) 
: C 1533 
3 C 1534 APPENDIX F 
; © Asse 
: 3 cast Ping-Pong algorithm 
3 
3 C 1538 The search begins at the primary replacement block descriptor. If the 
; C 1539 the descriptor is not empty then a ping-pong search of the sector containing 
3 C 1540 the primary replacement block descriptor ensues. If an empty descriptor 
: C 1541 is not encountered then a linear scan of the remaining RCT blocks and 
3 Cc 1542 descriptors within blocks, (with wrap-around at the end of the RCT) ensues 
3 : iy until one of two things occur: 
3 
3 Cc 1545 1. An unallocated replacement block descriptor is encountered in an 
3 : saat overflow location - a secondary. 
; : tees 2. The entire RCT is searched without success - a failure. 
; 
: : T4y The search operates at two levels: 
: 
3 © isse 1. Within the primary descriptor RCT sector, outward from the primary 
3 Cc 1553 descriptor searched (starting with the next highest RBN descriptor). 
: C 1554 Note that this degenerates to a linear search once the first or last 
3 3 saae descriptor is encountered. 
: Cc 1557 2. Then a linear search, starting with the next hi st RCT sector 
H Cc 1558 address, once the initial sector has been completely searched. Each 
; Cc 1559 new sector is searched in a linear fashion starting at the lowest RBN 
; C 1560 descriptor and scanning until the highest RBN descriptor in the 
: aoe sector is encountered. 
F 
; C 1563 If at any time during the linear search a null (not an empty) entry is 
3 C 1564 encountered, the search resumes at the first entry in the third RCT sector 
3 Cc 1565 (the first with descriptors). The search is terminated when it is certain 
8 : rot: that all the RCT entries have been searched. 


NS 


SEQ 0039 
P 


ZRCHB 1 ZRCHBO RC25 DISK FORMATTER 5-Apr-1984 13:43:03 VAX-11 Bliss-16 v3-555 
REV 6B PATCH 00 USER DOCUMENTATION 22-Feb-1984 12:03:49 SPIDERSUSERS: [NEALE AZTEC ]ZRCHB1.B16,7°C26)- 
: C 1568 

: C 1569 

; C 1570 ALGORITHM FIGURE - 

; Cc 1571 

: Cc 1572 

3 Cc 1573 RCT sector 3 Oa eceeeeee OC eecccccces . 
a C 1574 ! ' ' 
; C 1575 ! FIRST ! ! 
: Cc 1576 ! RCT 2 ! 
: ¢ 1577 !DESCRIPTR! ' 
: c 1578 * SECTOR ! ‘ 
3 C 1579 ' ' H 
. Cc 1580 . ' 
s Cc 1581 ¥ ‘ 
A C 1582 Vv ' 
Fy Cc 1583 RCT sector n Peacesccss + ‘ 
; C 1584 ’ 1 ' 
: C 1585 ! t<-s ' 
; C 1586 Poncesccce ! !pong ! 
8 C 1587 entrance to routine--> ! primary !--+ H 
; Cc 1588 Saseseeeen ! !ping ! 
3 Cc 1589 ' t<- : 
; 4 1590 aoe e een nee + : 
; C 1591 : : 
; c 1592 Vv g 
; C 1593 RCT sector nel +¢--------- ° A 
: Cc 1594 ! 3 4 
; C 1595 acer 8 : 
° C 1596 a 8 ' 
; ¢ 1597 ! BLOCK ! ! : 
° Cc 1598 ' v! i 
° c 1599 + 4 t 
i c 1600 ee * $ 
; C 1601 ¢ ’ 
; C 1602 Vv ’ 
3 C 1603 Last RCT sector +--------- + 4 
: C 1604 !LAST 3: ! ! 
; C 1605 : ! ‘ 
; C 1606 ! RCT : : : 
$ 3 KV? g 
; L !NUL ENTRY! ! 
rs c 1611 arene en nee ee ee + 
; C 1612 


j 
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ZRCHBO RC2S5 DISK FORMATTER 
V 8 PATCH 00 USER DOCUMENTATION 


B4 


APPENDIX G 
CREATING ZRCHBO DM CODE 


G.I FILES REQUIRED 


A, RTEM (RT-11 emulator) including: 
e. OMACRO.SAV Tre OM macro assembler 
b&. DMACRO.MAC Tre OM macro library 
¢. OTX.SAV Tre XXDP+ UPD2 emulator including: 


2. IZOKAO.OTX 


. oT 
- IZMSAO.OTX 
10. IZMTAO.OTX 


e@. STARTM.COM RTEM start up com file. See below 
essembling DM source files 


B. OMCONV.EXE 
Converts OMACRO output .SAV files into ea Bliss 
escii erray. This escii erray is then built into 


@ seperate Bliss module and compiled. The object 
code from this module is then linked with other 
Bliss object modules resulting in a APT compatible, 
oh eet object File including both host and 0M 
c 


G.1 BUILDING DM SOURCE CODE 


OM source code can be built using any of the text editors 
evei lable under any operating oreten, Guide lines for its 
creation cen be found in the AZTEC.DOC manual. 


G.2 ASSEMBLING DM SOURCE CODE 


Tre OM macro essembler (OMACRO.SAV) is used to assemble 0M 
code modules and is written to be run under RT-11 (or RTEM 
emulator). The following example demonstrated the RTEM 
stertup com file used to create the released 0M formatter 
-SAV file, This stert-up command file includes: allocating 
more virtuel storage, bringing the 0M source code into the 
RTEM system, essem]i the DM source code, linking and 
moving the output .SAV file back to the user directory. 
The following example is performed on VMS operating system. 


$ <VMS> 
$ set def (neale.rtem) 


RTEM-11 (VAX/VMS) VO1.00 
RT-11°8 (5) VO4,00L 


5-Apr-1984 13:43:03 VAX-11 Blies-16 v3-555 
22-Feb-1964 12:03:49 SPIDERSUSERS: [NEALE . AZTEC )ZRCHB1.616; 


wae cose - 
27 ) 


{Set default directory to the RTEM sub-directory 
$ mer rtem 'Run the RT-11 emulator 
. RTE>/vs !Type ‘vs to prompt RITE> 


3 
od 


oo @F GF GF Gt GF GF Ge Ge Gt GF Ge Ge Ge Ge Ge Ge Gs Ge Gs Ge Ge GF Ge Ge GF Ge GF SH Ge Ge Ge GF GF GF GH GH Ge Ge OF OF Ge Ge GF GF Ge Ge GF oF OF GF OF os @ Oe OF oF z 


Vv 


1 


on 
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1671 
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ZRCHBO RC2S5 DISK FORMATTER 
PATCH 00 USER DOCUMENTATION 


C4 


running the command file the 


-SET TT:NOCRLF ,SCOPE ,WIDTH 80 
-R JOAT 

eMORE /V:VS1 

etc 


-DEL VSL:¢.¢ 

.R FIP 

o> *(NEALE .AZTEC JAZFMTR.MAC/F 
@ 


-R OMACRO 
yg :AZFMTR,AZFMTR=DMACRO,VS1:AZFMTIR 
ef 


.R LINK 
ee AZFMTR*VS1:AZFMTR 
at 


.R FIP 

e(NEALE .AZTEC)/F *VvS1:AZFMTR.LST 
> nae »AZTEC)/F/I*VS1:AZFMTR. SAV 
o 


-800 SY 
$ <VMS> 


G.3 BUILDING THE BLISS ASCII ARRAY 


5-Apr-1984 13:43:03 
22-Feb-1984 12:03:49 


The following is per*ormed by the startm.com start-up command file. 


VAX-11 Bliss-16 V3-555 


Before 


virtual storage disk VS1: must have elready 
been generated using the JOAT utility. 


'Set term character istics 

tEnter JOAT (Jack of all trades) utility 
tAllocete virtual device VS1: to RTEM system 
tExit JOAT 


{Make room in VS1: for this assembly 

tEnter File interchange program 

pap a OM source code from user directory 
nit 


!Run the OM macro assembler 
'Assemble DM source and save in VSI: 
tExit tne OM assembler 


tRun the RTEM Linker 
tLink the .obj file and save in VS1: 
tExit the linker 


tRun FIP 
{Output .LST file to user directory 
{Output .SAV File to user directory 
fExit FIP 


'Return to VMS 


The next step is to run the DMCONV program to build the 
Bliss escii erray from the OMACRO output .SAV file. To 


do this follow this exemple: 


$ run DMCONV.EXE 
INPUT FILE NAME (I.E. 


XXXXXX.VYY) AZFMTR.SAV 


OUTPUT FILE NAME (I.E. XXXXXX.YYY) AZFMTR. VEC 
BLOCK VECTOR NAME (I.E. XXXXXX.YYY) AZFMTR 


Note: 


In this example it is assumed that DMCONV.EXE and the 


-SAV file are both in the default directory. 


G.4 BUILDING THE DM BLISS MODULE 
the OMCONV program (AZFMTR.VEC) is then 

into e Bliss module (for the purpose of ZRCHBO this 
To compile this module 


The output from 
included 
module is ZRCHB6.B16) and compiled. 


tekes ea VERY long time so it is suggested that it is submitted 


to the batch queve after hours. 


The entire procedure to compile and link all Bliss source 


modules (including the DM bliss module) 
the following command procedure (azcor..com): 


is demonstrated by 


os P 
SPIDERSUSERS: [NEALE .AZTEC JZRCHB1.816;7 (27) 
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2RCHB1 ZRCHBO RC25 DISK FORMATTER S-Apr-1984 13:43:03  VAX-11 Bliss-16 v3-555 StG Oe 42 
REV B PATCH 00 USER DOCUMENTATION 22-Feb-1984 12:03:49 SPIDERSUSERS: [NEALE . AZTEC ]ZRCHB1.816;7 (27) 
C 1727 $ Sazcom tExecute command procedure 

1728 $ set verify 

1729 $ bliss/pdpll/list/library ZRCHBO.R16 

1730 $ bliss/pdp1l/listing=ZRCHB.DOC ZRCHB1.616 

1731 $ blise/pdpll/liet ZRCHB2.816 

1732 $ bliss/pdpli/list ZRCHB3.616 

1733 $ bliss/pdpll/list ZRCHB4.616 

1734 $ bliss/pdpli/list ZRCHB5.616 

1735 $ set process/name="Ki ller 

1736 $ bliss/pdpll/list ZRCHB6.616 

1737 $ set process/name="F isher _man 

1738 $ bliss/pdpll/list ZRCHB7.B816 

1739 $ MCR TKB 


1740 , Pettitte, ZRCHB/CR/ -SP=ZRCHB2 , ZRCHB3, ZRCHB4 , ZRCHBS,, ZRCHBE, ZRCHB7 ,neislb/lb 


1742 PAR =DUMMY : 2000: 176000 
1743 STACK*0 
1744 4/ 


1782 .R FIP tRun FIP utility 
1783 #VS1; =(NEALE .AZTEC ]ZRCHB.BIN/F /I !Bring .BIN File from user directory into VSI: 


3 
3 4 

FY ‘. 

3 “4 

3 Cc 

Fy Cc 

’ c 

3 a 

3 Cc 

Fy Cc 

3 4 

Fy Cc 

3 Cc 

3 Cc 

3 Cc 

: c 

Po 3 

3 

3 c 1745 a §0000000600000606060600600666000606000006006000066866060066666086 

FY C 1746 $ te 6 

: C 1747 $ !¢ Now run the TKBBIN program to create a .bin file « 

: C 1748 $ te 8 

3 Cc 1749 $ FOMSSSHHAEEEASAEESEHEEEEEAEHEEEEEEESEEEEEEEEEHEEEEHEEOEES 

3 Cc 1750 $ set noverify 

3 Cc 1751 $ 

3 Cc 1752 

F C 1753 The TKBBIN utility is then run on the output from the TKB linker to produce 
8 3 qin an XXDP+ executable .BIN file. The following is an example of the procedure: 
3 C 1756 $ RUN TKBBIN 

3 C 1757 Input filename ? ZRCHB 

3 Cc 1758 sload Addr: 2000 

Fy Cc 1759 sxfer Addr: 1 

3 C 1760 :Nr cher : 74600 

3 C 1761 End of Job 

3 C 1762 $ 

8 C 1763 

3 C 1764 G.5 GETTING .BIN FILES ONTO XXDP+ MEDIA 

8 C 1765 The RT-11 emulator is used to move XXDP+ .BIN files from a 

3 C 1766 VMS user directory onto XXDP+ media. The following is an 

3 3 pe example of this procedure. 

8 

3 Cc 1769 $ set def [neale.rtem) !Set default directory to RTEM sub-directory 
3 Cc 1770 $ mer rtem tRun the RT-11 emulator 
3 3 tha -RTE>/vs tType /vs to prompt 

3 $ 

8 C 1773 ! The startm.com Command file will automatically 

8 C 1774 ! begin to execute when entering RTEM. Control 

Fy Cc 1775 ! ¢ the command procedure at this time and do the 

3 C 1776 ! following: 

8 C 1777 H 

3 C 1778 -R JOAT !Rum JOAT utility 

8 Cc 1779 .DLO:/A tAllocate XxXDP+ device to pip .BIN File to 
H 3 1780 atc tExit JOAT 

$ 

8 c 

F c 
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SEQ 0043 
ZRCHB 1 ZRCHBO RC2S5 DISK FORMATTER S-Apr-1984 13:43:03 VAX-11 Bliss-16 v3- 


555 ._ P 43 
REV B PATCH 00 USER DOCUMENTATION 22-Feb-1984 12:03:49 SPIDERSUSERS : [ NEALE . AZTEC ]ZRCHB1.816; 7°27) 
3 C 1784 atc tExit FIP 
3 Cc 1785 
3 C 1786 .R DTX !Run the XXDP+ UPD2 emulator 
; C 1787 #DEL DOLO:ZRCHB.BIN !Delete from XXDP+ media old .BIN file 
3 C 1788 «PIP DLO: ZRCHB.BIN=VS1:ZRCHB.BIN !PIP new .BIN file to XXDP+ media 
3 Cc 1789 *LOAD DLO: ZRCHB.BIN tLoad the file to verify the check -sum 
3 Cc 1790 XFR: 000001 CORE:002000, 76600 
3 C 1791 atc $Exit DOTX 
Fy C 1792 
Fy 3 1793 -B00 SY 'Boot back to VMS 
: 


1794 $ <VMS> !Back at VMS again 


F4 


4 

ZRCHB1 ZRCHBO RC25 DISK FORMATTER 5-Apr-1984 13:43:03 VAX-11 Bliss-16 v3-555 — 44 
REV B PATCH 00 USER DOCUMENTATION 22-Feb-1984 12:03:49 SPIDERSUSERS: [NEALE .AZTEC ]ZRCHB1. B16;7°C (28) 
3 Cc 1795 APPENDIX H 
3 C 173% 
3 Cc 1797 CREATING ZRCHBO HOST CODE 
3 Cc 1798 
3 Cc 1799 H.I FILES REQUIRED 
3 C 1800 A. Text editor 
3 C 1801 B. Bliss16 compiler 
$ C 1802 C. TKB linker 
3 C 1803 DO. TKBBIN Utility This converts Blissl16 .EXE files into XXPD+ 
3 C 1804 .BIN files. 
8 Cc 1805 
8 C 1806 
3 : ot H.1 SOURCE FILE CREATING 
3 C 1809 Using any text editor, follow PDP-11 diagnostic design guidelines demonstrated 
- ¢ 1810 in SUPPREC.DOC and CHQUSD.SEQ. 
; : tt H.2 COMPILING BLISS SOURCE MODULES 
: C 1814 Follow steps starting at G.4 to compile Bliss source modules and 
3 Cc 1815 to get the .BIN file onto XXDP+ media. 
3 1816 )s 
3 1817 ELUDOM 

.TITLE ZRCHB1 ZRCHBO RC25 DISK FORMATTER 

.IDENT /REV B / 
3 PSECT SUMMARY 
3 
5 Psect Name Words Attributes 


COMMAND QUALIFIERS 
BLISS /PDP11/LISTING=ZRCHB.DOC ZACHB1.B816 


Size: 0 code + O date words 
Run Time: 00:08.6 

Elapsed Time: 00:49.4 

Memory Used: 6 pages 

Somni tekken Complete 


G4 


ZRCHB2 ZRCHBO RC25 DISK FORMATTER 5-Apr-1984 13:19:09 VAX-11 Bliss- 
5-Apr-1984 13:16:08 SPIDERSUSERS: 


0001 MODULE ZRCHB2 (TITLE ‘ZRCHBO RC25 DISK FORMATTER’ 
IDENT = ‘REV B PATCH 00’ 


SEQ 0045 
16 V3-555 Page 1 
(NEALE .AZTEC )ZRCHB2.816;5 (1) 


3 
: . 

: 0003 ADDRESSING_MODE CRELATIVE) , 

F 0004 ENVIRONMENT (NOEIS) 

3 0005 = 

3 0006 BEGIN 

8 0007 ssbttl ‘PROGRAM HEADER’ 

: 000s ! 

8 0009 ! Pretty Declarations 

3 0010 (! 

3 0011 !<BLF/LOWERCASE_KEY> 

Fy ooi2 ! 

Fy 0013 

’ +44 library ‘ZRCHBO'; !Define RC25 Formatter Library 
’ 

3 coos require ‘'BLSMAC.REQ’'; 'Define Bliss Macro Require file 
F 

3 1506 !+ 

3 1507 ! The psect named “code or scode$” is redefinded here 

8 1508 ! to be called “aatcode”. This is done to force the TKB 

H 1509 ! linker to place the Eregrene header information starting 

Fy 1510 ! at absolute address 2 " 

: 1511 !- 

3 1512 psect 

Fy 1513 code = aascode; 

3 1514 

3 1515 literal 

3 ot: DOSS$NBR_OF_TESTS = 1; !Indicates number «f test in Diag 
8 

8 1518 !-+ 

H 1519 ! The structure of a diagnostic program may contain any or all of the 
Hy 1520 ! ten optional sections. But five of the optional sections require a 
Fy 1521 ! pointer that is derived by and for the supervisor, and is located in 
: 1522 ! the header block. Therefore, in relation to the effective use of 
: 1523. ! these five pointers, the optional sections call must be coded to re- 
; foes : flect usage (i.e., any,all.,or none). 

3 H 

; fase : The following coding possibilities exist: 

3 tase : POINTER (BGNRPT,BGNSW,BGNSF T,BGNAU,BGNDU,ERRTBL ,BGNSETUP ) 

$ ttt : Cor any subset of the args) 

3 : 

8 1532 ! POINTER (ALL) ; All provides pointers for all five 

F 1533 ! s sections 

8 1534 ! POINTER (NONE) 3 None indicates to supervisor that no 
3 iSssS ? 3 pointers are required. 

3 1536! ; this is the default 

3 1537 ! 

F 1538 ! No pointers are optional using bliss. Make sure the following 

H 1539! sections of code are in place (in the correct skels),even i 

Fy 1540 !3 the sections are blank. 

3 1541 ! 

3 1542 ! ARGUMENT FUNCTION 

3 345 $ £+§; #§é$&<;‘wescesse jg. svecve 

; 1544 ! RPT REPORT CODE 

8 1545 ! Sw SOFTWARE TABLE 


H4 


other key sections of the program(e.g., dispatch table, initialize and 

clean-up code, etc.). An argument on the header gives the device type 
if it is an XXDP+ bootable device. This enables the supervisor to pro- 
vide load medium protection when necessary. 


1564 HEADER (sascii‘CZRCH ', sascii'B', sascii'0’, 1200, 0, PRIOO); 


~— 
a 
o 


SEQ 0046 
ZRCHB2 ZRCHBO RC25 DISK FORMATTER S-Apr-1984 13:19:09 VAX-11 Bliss-16 V3-555 Page 
REV B PATCH 00 PROGRAM HEADER 5-Apr-1984 13:16:08 SPIDER$USERS : [NEALE . AZTEC JZRCHB2.816;5 (1) 
; 1546 ! SFT SOFTWARE TABLE QUESTIONS 
: 1547 ! AU ADO CODE 
; 1548 ! DU DROP CODE 
; 1549 ! TBL ERROR TABLE 
: toee 2 SETUP ASSEMBLED P-TABLES 
H t- 
: 1552 POINTER CALL); 
3 1553! 
; 1554 ! The program header section contains general information which des- 
; 1555 ! cribes the major characteristics of the diagnostic program. This in- 
3 1556 ! cludes, the program name, and revision and patch-order levels. The 
3 1557 ! header also provides space for an event flag register, and for the 
; 1558 storage of pointers, through which the supervisor may find access to 
: 
; 
H 
: 


14 
SEQ 0047 
ZRCHB2 ZRCHBO RC25 DISK FORMATTER S-Apr-1984 13:19:09 VAX-11 Bliss-16 V3-555 Page 3 
REV B PATCH 00 OISPATCH TABLE S-Apr-1984 13:16:08 SPIDER SUSERS : [NEALE .AZTEC )ZRCHB2. B16;5°¢ (2) 


1565 Sues ‘DISPATCH TABLE’ 


"the dispatch table section contains address pointers to the 
! tests contained within the diagnostic program. 
q the coding of only the dispatch macro. 


1571 OISPATCH CDOS$NBR_OF _TESTS); 
1572 ERRTBL; 


ver ious 
This section requires 


ai 
On 


!Define Supervisor Error table storage 


J4 


SEQ 0048 
ZRCHB2 ZRCHBO RC25 DISK FORMATTER 5-Apr-1984 13:19:09 VAX-11 Bliss-16 V3-555 Page 
REV B PATCH 00 DEFAULT HARDWARE P-TABLE 5-Apr-1984 13:16:08 SPIDER$SUSERS : [NEALE .AZTEC JZRCHB2. B16;5°¢ (3) 
1573 Sebets ‘DEFAULT HARDWARE P-TABLE’ 


1575 ! "the default hardware P-Table contains default values of 
1576 : the test-device paremeters. The structure of this table 
1577 ' is identical to the structure of the hardware P-Tables, 
1578 ! and is used asa “template” for building the P-Tables. 


1579 !- 
BGNHW (COFPTBL); 
1581 
1582 global 
1583 HW_IP_ADRS : word initial (#0'172150' ), !Define RC25 Controler IP reg 
1584 HW_VECTOR : word initial (#0' 154’), 'Define RC25 interrupt vector adddrs 
1585 HW_BR_LEVEL : word initial (5), !Define RC25 bus request level 
143 HW_UNIT_NO : word initial (0); 'Define RC25 unit no. to format 


: 


1588 ENDHW; 


IK4 


SEQ 0049 
ZRCHB2 ZRCHBO RC25 DISK FORMATTER shel p44 13:19:09 VAX-11 Bliss-16 V3-555 P 
-Apr 


REV B PATCH 00 SOFTWARE P-TABLE -1984 13:16:08 SPIDERSUSERS : [ NEALE . AZTEC ]ZRCHB2.616;5°(4) 
1589 ssbttl ‘SOFTWARE P-TABLE’ 


* 


' The software table contains various date used by the 
program as operational parameters. These parameters are 
set up * assembly time and may be varied by the operator 
at run time. 


e. 
1596 BGNSW (SFPTBL); 


1598 global 
1599 SW_UNATT : word initial (1); !Format in unattended refmt mode 


1601 ENDSW; 


i 
2 
fu 

se tartare te 


a 
ui 
a 


ZRCHB2 


REV B PATCH 00 


L4 


ZRCHBO RC25 DISK FORMATTER 5-Apr-1984 13:19:09 
PROTECTION TABLE 5-Apr-1984 13:16:08 


Sebtts ‘PROTECTION TABLE 


"this table is used by the tyne 
services to protect the load media 


ist arg * Offset into P_Table for csr address 
2nd arg * Offset into P_Table for massbus address 
3rd arg = Offset into P_Table for drive number 


BGNPROT (0, -1, 6); 
ENDPROT; 


SEQ oo 
VAX-11 Bliss-16 V3-555 6 
SPIDERSUSERS : [NEALE .AZTEC ]ZRCHB2. B16:5° (5) 


ZRCHB2 


REV B PATCH 00 


Ss . 
@s Ge Ge Ge Ge Gs Ge Ge Gs GF Gs Gs Gs GF Ge GF BY Gt Ge Ge Ge GH GF GF GF GF Gs GF GF Ge GF GF GH Gs Ge Se GF Ge Ge GH GF GF OF OF GH OF 
2 
we . 
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ZRCHBO RC2S DISK FORMATTER S-Apr-1984 13:19:09 VAK-11 Bliss-16 v3-555 io 
MODULE DECLARATIONS S-Apr-1984 13:16:08  SPIOERSUSERS; [NEALE. AZTEC ]ZRCHB2.816;5°C6) 


Senete ‘MODULE DECLARATIONS’ 


uithin BLSMAC.REQ the psect names, plit global and own, 
ere redefined to be aascode. This is done to force the 
tkb linker to link the header information starting at 
at absolute address 2000. Redefine these psect names 
back to their original names for house keeping purposes. 


Also change the attributes for the psect “global” so that 
oo data will not be linked starting at absolute aasresn 


psect 
plit = Split$(€ global), 
global = sglobs(nowrite, noexecute, global. concatenate), 
own = Sowns; 


Structure declarations used within this 
module. 


serscerare 
* 


structure 


te 

' RC2S register accessing structure. This 

' structure allows RC25 register accessing 

! to be transportable between the PDP-11 and 
! VAX Diagnostic Supervisors. 

This also defines an access algorithm for 
J 
J 


! VAX to allow field reference to MBA address 
! space without generating machine checks. 


rc2es (0, P, S, E} = 
begin 


local 
RC$S_REG; 


RCS$S_REG = .(RC25 + supvals0)<0, Sbdpval, O>; 
RC$S_REG 


end 
<P, $s, E>; 


ZRCHB2 


REV B PATCH 00 


oe Ge Gs Gs Ge Ge G+ Gt Ge Ge Ge Ge Ge Gt Ge GH Ge Ge Gs Gt Gt Ge Ge Gt Ge Gt GH GH GH Ge GH GH GF GH Ge Ge Ge Gt GF Ge Ge Ge Ge Ge GF Ge Ge Gt Gs Ge 6H Gs Ge Ge oe oe OF 


N4 


SEQ 0052 
ZRCHBO RC25 DISK FORMATTER S-Apr-1984 13:19:09 VAX-11 Bliss-16 v3-555 Page 
GLOBAL DATA SECTION 5-Apr-1964 13:16:08 SPIDERSUSERS: [NEALE .AZTEC )ZRCHB2.816;5 (7) 


Ssbttl ‘GLOBAL DATA SECTION’ 
* 


! The global date section contains data that are used 


! in more than one test or module. 
e. 


globel 
Communication area Declerat ions 


COM_AREA : blockvector [REC_ALLOCATE + SND_ALLOCATE + HOR_SIZ, 2, word], 
HEAD_AREA : ref block [4, word] field (HOR_FIELD), 
RECEIVE _RING : ref blockvector [(REC_ALLOCATE, 2, word] field (DSC_FIELD), 
SEND_RING : ref blockvector [SND_ALLOCATE, 2, word) field (DSC_FIELD), 
REC_ENVELOPE : blockvector [REC_ALLOCATE, RB_SIZE + 2, word) field (ENV_FIELD), 
SND _ENVELOPE : blockvector [SND_ALLOCATE, SB_SIZE + 2, word] field (ENV_FIELD), 
FCT_BUF : block (256, word], 
REC_BUF : block [RECB_SIZE, word) field (RECB_FIELD), 

_BUF : vector [SNDB_SIZE, word], 
OUTSSTO_BUF : blockvector [(REC_ALLOCATE, 2, word] field (OUTSFIELD), 
RET_ENSAD : ref block (RB_SIZE + 2, word] field (ENV_FIELD); 


global bind 


‘ 


' Diagnostic supervisor printing ascii format strings. 
a 


FMT1 = uplit (sesciz‘sNsT’), !Print one ascii string pointer 

FMT2 = uplit (sesciz' SNSNSAINITIALIZING RC25 CONTROLLER ADDRESS: #Ss06sA(0)sSN' ), 

FMTS = uplit (sesciz’sNSALOGICAL UNIT SD28A(D)SSSAPHYSICAL UNIT sSD28A(D)SSSAFORMAT ABORTED’ ), 
FMTS = uplit (sasciz‘'sNSAMICRO CODES MOD 16 VERSION NUMBER =sSs02s8A(0)sN’ ), 

FMTS = uplit (sasciz‘SNSABRINGING ONLINE: LOGICAL UNIT SD2s8A(D)SSSAPHYSICAL UNIT sD2s8A(D)=N’ ), 
FMT6 = uplit (sasciz' SNSASFTLERR- NON-EXISTENT RC25 CONTROLLER ADDRESS sO06sA(0)sN’ ), 


FMT7 = uplit (sesciz'sAFORMATTING PHYSICAL UNIT sD2s8A(D)sN’ ), 

PID_FMT = uplit (sasciz’sNSAFORMATTER PROGRESSING: PID HI=#068A(0)sSSSSAPID LO=s06sA(0)° ae 
CRLF = uplit (sasciz’sN’ ), 

XCRLF = uplit (sasciz‘’ SNSNSNSNSNSNSNSN’ ), 

: Ring bese address declaration 

RINGBASE = COM_AREA [REC_BASE), 


6 
MSGADR = REC_BUF [MSG_TXT]; 
global 


Miscellaneous data declarations 


DATETXT : vector [12, byte], !Operator data input storage 

FLG_WRD : bitvector {16%, !Global flag word 

NEX_FLAG : word, !Non-existent RC25 register flag 

OVSA : word, ’ !Overlay section starting adrs 

NXT_CRN : byte, !Stores next cmd ref number 

RET_STATUS : word initial (#0'000000' ), 'Saves various return status codes 

LUN : word, {Stores logical unit number being formatted 
PID_SAVE : vector [2, word], !Saves proces indicator word 


BS 


SEQ 0053 
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: 1716 NSO_SLOT : word, !Next send Deecriptor slot 
: RH NRO _SLOT : word, tNext receive Descriptor slot 
3 : 
Fy ioe Hardware P_Table storage declarations 
3 
3 1721 RC25_ADDOR : ref RC25 Field (ISO_FIELD), !Controller register access structure 
3 1722 VEC_ADOR : word, Interrupt vector eddress storage 
3 1723 BR_LEVEL : word, !Bus request level storage 
F 1724 UNIT_NO : word, !Unit number to format storage 
3 fee ; PTBL_PTR : ref vector [4, word], !Stores P_Table base address 
3 : 
’ 1727 ! Dup Protocol date structures 
3 1728 ?! 
8 1729 $s 
3 aren Reserved Field mask structure decleration 
: .* 
3 1732 RSVD_STRUCT : vector [4, word] preset ( !Reserved SA reg fields definitions 
; 1733 [O) = sx'O7FF', 'V2.0 Step one rsvd field 
3 1734 {1} * #x'0000', 'Step two rsvd field 
3 1735 (2) = #x‘'0700', 'Step three revd field 
3 the (3) = @x'O7FF'), !Step four rsvd — ucode field 
3 
3 1738 $e 
3 the : Init Sequence Data_Structure declaration 
3 ie 
Fy 1741 
: me TSD_STRUCT : blockvector (4, 2, word) field (ISO_FIELD) preset ( 
3 H 
8 oan : Step one read SA register field declaration 
; . 
3 1746 (BLKO, WRDO, ERR_BIT) = O, tError bit 
8 1747 ([BLKO, WRDO, STP_FIELD) = sb'0001', 'All step bit fields 
8 1748 (BLKO, WRDO, SIR_NV) = 1, !v2.0 Mask out host inter vec settable adrs 
3 1749 (BLKO, WRODO, S1R_QB) = 1, !Mask out 22 bit addressing 
F 1750 (BLKO, WRDO, S1R_OI) = 1, {Mask enhanced diag implementation 
F 1751 (BLKO, WRDO, S1R_00) = 1, !Mask out port allows odd addressing 
3 1752 (6LKO, « SIR_MP) = 1, !Mask out Port supported adr 
3 ae [BLKO, WRODO, SIR_RSVD)= so'77', !v2.0 Reserved field 
3 : 
; isa: : Step one write SA register field declaration 
: 1757 {BLKO, WRD1, ERR_BIT) = 1, tError bit 
F 1758 (BLKO, WRO1, SIW_WR)= O, !Dieg wrap around 
é 1759 (BLKO, WRD1, SiW_CRING)* SND_SIZ, Number of Send-ring slots ‘pwrs of 2: 
; 1760 {BLKO, WRO1, SlW_RRING]= REC SIZ, !Number of Receive-ring slots ‘pwrs of 2° 
3 1761 (BLKO, WROL, SiwW_IE}= 0, tInit Sequence interrupt request 
8 By | (BLKO, WRD1, SIW_VADR]= so'33', tInterrupt vector address 
: 1764 Step two read SA register field declaration 
3 H 
3 1766 (BLK1, WRDO, ERR_BIT) = O, ‘Error bit 
3 1767 (BLK1, WRDO, STP_FIELD) = sb'0010', tAll step bit Fields 
5 1768 (BLK1, WRDO, S2R_PTYP)= O, !Port type number 
3 1769 (BLK1, WRDO, S2R_BIT7)= 1, tEchoed IE bit from step one write 
3 1770 (BLK1, WRDO, S2R_WR)= O, tEcnoed bit 14 from step one write 
F 1771 (BLK1, WRDO, S2R_CRING)= SND SIZ, tEchoed bits 3-5 from step one write 
5 


1772 (BLK1, WRDO, S2R_RRING)= REC SIZ, tEchoed bits 0-2 from step one write 


ie 
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; 1773 H 

3 1774 ! Step two write SA register field decleration 

3 1775 H 

; ti (BLK1, WRO1, S2W_LRBASE ]= RINGBASE, !Ring bese lower address 

; . 

3 177 ! NOTE: 

3 1779 ! The adapter purge interrupt is loaded within 

3 1780 ! the bgninit code due to the inability to field 

3 1781 ! select bits <1, 15, 0> from the ringbase edrs. 

3 ree : (BLK1, WRDL, S2W_PI}= 0, !Adapter purge interrupt request 
Hy . 

8 ties : Step three read SA register field declaration 

3 1 H 

3 1786 (BLK2, WRDO, ERR_BIT) = O, ‘Error bit 

3 1787 (BLK2, WROO, STP_FIELD) = #b’'0100', 'All step bit fields 

3 1788 (BLK2, WROO, S3R_RSVD)* so'7', {Reserved 

8 1789 (BLK2, WRODO, S3R_IE)= 0, tEchoed IE bit from step one write 
3 toe [BLK2, WRDO, S3R_VADR)= so’ 33’, !Echoed VADR from step one write 
; . 

3 he : Step three write SA register field deciaration 

: . 

8 1794 (BLK2, WRD1, S3W_PP)= 0, !Purge — Poll test request 

F ps (BLK2, WRD1, S3W_HRBASE]= 0, !Ring base high address 

3 H 

3 fae : Step four read SA metry field declaration 

; . 

3 1799 (68LK3, WRDO, ERR_BIT) = t€rror bit 

8 1800 {BLK3, WROO, STP_FIELD) * sib’ 1000', ‘All step bit Fields 

3 1801 (BLK3, WRDO, S4R_RSVD]= so'7', !Reserved 

8 1802 (BLK3, WRDO, S4R_MOD) = Sx'f', tMask it out 

3 oor (BLK3, WRDO, S4R_VER]) = wx'f’, Mask it out 

Hy 2 

F ioe ! Step four write SA register field declaration 

: H 

H 1807 (BLK3, WRO1L, S4W_RSVD])= so’ 377', 'Reserved 

F 1808 (BLK3, WRD1, S4W_BURST])= © !Max number longwords per NPR xfer 
i 1809 (BLK3, WRD1, S4W_LF)- O, ‘Last fail request 

Hy 1810 (BLK3, WRD1, S4W_GO)= 0); !Go bit 

3 
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Sebttl ‘GLOBAL TEXT SECTION’ 
: "the global teat section contains format statements, 


messages, and ASCII information that are used in 
ell modules. 


global bind 
Self -detected fatal port/controller errors 


Pre STRUCT = uplit (¢ 

uplit (sasciz' SNSASFTLERR- UNRECOGNIZABLE ERROR CODE’), 

uplit (sesciz' SNSASFTLERR- ENVELOPE/PACKET READ (PARITY OR TIMEOUT)’ ), 

uplit (sasciz' SNSASFTLERR- ENVELOPE/PACKET WRITE (PARITY OR TIMEOUT)’ ), 

uplit (sasciz' SNSASFTLERR- CONTROLLER ROM AND RAM PARITY’), 

uplit (sasciz' SNSASFTLERR- CONTROLLER RAM PARITY’ ), 

uplit (sasciz’' SNSASFTLERR- CONTROLLER ROM PARITY’), 

uplit (sesciz' SNSASFTLERR- RING READ (PARITY OR TIMEOUT): ). 

uplit (sesciz' SNSASFTLERR- RING WRITE (PARITY OR TIMEOUT)’ ), 

upLlit (sasciz' SNSASFTLERR- INTERRUPT MASTER’ ), 

uplit (saeciz' SNSASFTLERR- HOST ACCESS TIMEOUT: iP 

uplit (saesciz' SNSASFTLERR- CREDIT LIMIT EXCEEDED’ ), 

uplit (sesciz' SNSASFTLERR- BUS MASTER ERROR’ ), 

uplit (sesciz’' SNSASFTLERR- DIAGNOSTIC CONTROLLER FATAL ERROR’ ), 

uplit (sesciz' SNSASFTLERR- INSTRUCTION LOOP TIMEOUT’ ), 

uplit (saeciz' SNSASFTLERR- INVALIO CONNECTION IDENTIFIER’ de 

uplit (sasciz’ SNSASFTLERR- INTERRUPT WRITE’ ), 

uplit (saeciz' SNSASFTLERR- MAINTENANCE READ/WRITE INVALID REGION IDENTIFIER’ ), 

uplit (sesciz' sNSASFTLERR- MAINTENANCE WRITE LOAD TO NON-LOADABLE CONTROLLER’ }, 

uplit (saesciz' SNSASFTLERR- CONTROLLER RAM ERROR (NON-PARITY)* ), 

uplit (sasciz' SNSASFTLERR- INIT SEQUENCE ERROR’ ), 

uplit (sasciz' SNSASFTLERR- HIGH LEVEL PROTOCOL INCOMPATIBILITY ERROR’ ), 

uplit (sasciz' SNSASFTLERR- PURGE/POLL HARDWARE FAILURE ' 

uplit (sasciz' SNSASFTLERR- MAPPING REGISTER READ ERROR (PARITY OR TIMEOUT): ) 
) : vector [23], 

' <BLF /PAGE > 
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uplit 
uplit 
uplit 
uplit 
uplit 
uplit 
uplit 
uplit 
uplit 
uplit 
uplit 
uplit 
upLlit 
uplit 
uplit 
uplit 
uplit 
uplit 
uplit 
uplit 
uplit 
uplit 
uplit 


al 


5-Apr-1984 13:19:09 
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! Error message structure 
EMSG_STRUCT = uplit ¢ 


(sasc i z' SNSASF TLERR - 
(sasc iz‘ SNSASF TLERR - 
(sasc iz‘ SNSASFTLERR- 


(sasciz' SNSASFTLERR- UNK 


(sasc iz‘ SNSASFTLERR- 
(sasc iz' SNSASF TLERR- 
(sasc iz‘ SNSASF TLERR- 
(sasciz' SNSASF TLERR - 
(sasciz' SNSASF TLERR- 
(sasciz' SNSASFTLERR- 
(sasciz' SNSASFTLERR- 
(sasciz' S@NSASFTLERR- 
(sasciz' SNSASF TLERR- 
(sasciz' SNSASFTLERR- 
(sasc iz‘ SNSASFTLERR- 
(sasciz' SNSASFTLERR- 
(sasciz' SNSASFTLERR- 
(sasciz' SNSASF TLERR - 
(sasc iz‘ SNSASFTLERR- 
(sasciz' SNSASF TLERR- 
(sasc iz‘ SNSASFTLERR- 
(sasciz‘' SNSASFTLERR- 
(sasciz‘' SNSASF TLERR- 


!<bl fF /page> 


RESPONSE STATUS ERROR:#S'‘ ), 
HOST/CONTROLLER OUT OF SEQ’), 
REMOTE PROG NOT RUNNING’ ), 
NOWN RETURN STATUS CODE’), 
COM AREA INIT ERROR’), 
PORT/HOST SYNC ERROR’ ), 
MESSAGE LENGTH ERROR’), 
UNKNOWN ENOCODE RECEIVED’), 


OR 
UNKNOWN INTERRUPT‘ ), 
INIT SEQ STEP TIMED OUT’), 
INIT SEQ COMPARE ERROR’), 
UNEXPECTED ATTENTION END MESSAGE RECEIVED’ ), 
UNEXPECTED COMMAND OPCODE IN END MESSAGE RECEIVED’), 
UNEXPECTED SERIOUS EXCEPTION END MESSAGE RECEIVED’ ), 
INVALID COMMAND END MESSAGE RECEIVED'), 
UNKNOWN MESSAGE TYPE RECEIVED’ ), 
OUTSTANDING COMMAND BUFFER FULL’), 
OUT STANDING COMMAND BUFFER OUT OF SYNC ERROR’), 
UNKNOWN MESSAGE NUMBER RECEIVED’ ), 
FILE READ ERROR’), 
PORT/CONTROLLER TIMEOUT ERROR’ ), 
ILLEGAL FCT FILE LENGTH’ )) : vector [23], 
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GLOBAL TEXT SECTION 


Self-detected fatal port/controller errors 
RC_STRUCTURE = uplit ( 


uplit 
uplit 
uplit 
uplit 
uplit 
uplit 
uplit 
uplit 
uplit 
uplit 
uplit 
uplit 
uplit 
uplit 
uplit 
uplit 
uplit 
uplit 
uplit 
uplit 
uplit 
uplit 
uplit 
uplit 
upLlit 
uplit 
uplit 
uplit 
uplit 
uplit 
uplit 
uplit 
uplit 
uplit 
uplit 
uplit 
uplit 
uplit 
uplit 


(sasciz' SNSASF TLERR- 
(sasciz' SNSASFTLERR- 
(saeciz' SNSASFTLERR- 
(asc iz' SNSASFTLERR- 
(sasciz' SNSASFTLERR- 
(sasciz' SNSASFTLERR- 
(sasciz' SNSASFTLERR- 
(sasciz' SNSASFTLERR- 
(sasciz' SNSASFTLERR- 
(sasc iz’ SNSASFTLERR- 
(sasc iz‘ SNSASF TLERR- 
(sasciz' SNSASFTLERR- 
(sasciz' SNSASFTLERR- 
(sasciz' SNSASFTLERR- 
(ssasciz‘' SNSASFTLERR- 
(sasciz' SNSASF TLERR- 
(sasciz' SNSASFTLERR- 
(sasc iz‘ SNSASFTLERR- 


(sasciz' SNSASFTLERR- DO. 


(sesciz' SNSASFTLERR- 
(saeciz‘' SNSASFTLERR- 
(sesciz' SNSASFTLERR- 
(saesciz' SNSASFTLERR- 
(sesciz‘' SNSASFTLERR- 


(sasciz' SNSASFTLERR- DOM 
(seasciz' SNSASFTLERR- UNKNOWN 


(sasc iz‘ SNSASFTLERR- 
(ssasciz' SNSASFTLERR- 
(sasciz' SNSASFTLERR- 
(sasciz‘' SNSASF TLERR- 
(sasc iz‘ SNSASF TLERR- 
(ssasciz' SNSASFTLERR- 
(asc iz‘ SNSASF TLERR- 
(sasc iz‘ SNSASFTLERR- 
(sasciz' SNSASFTLERR- 
(sasciz‘' SNSASFTLERR- 
(asc iz‘ SNSASFTLERR- 
(sasciz' SNSASFTLERR- U 
(ssasc iz‘ SNSASFTLERR- 


>: 


!<bl f/page> 


VAX READ/WRITE ERROR ON INTERRUPT’ ), 
INCONSISTENCY AT U.BFIL'), 

INCONSISTENCY AT U.BMTY' ), 

INCONSISTENCY AT U.ALOC’ ), 

INCONSISTENCY AT SERVO ENTRY (PIP SET)’ ). 
INCONSISTENCY AT SERVO ENTRY (ERR SET)'), 
INCONSISTENCY AT U.SEND’), 

INCONSISTENCY AT U.RECV’), 

INCONSISTENCY AT U. ATTN’ ). 

INCONSISTENCY AT U.ONLN’ ), 

ILLEGAL D REQUEST CU.GORQ): ), 

FENCE-POST ERROR AT PROTAB' ), 

BAD PACKET DEQUEVED AT U.DONE'), 
UNEXPLAINED D-PROC SUSPENSION (U..TDS)'), 
DUP PACKET D0-@ FAILED (xXFC 34/35)'), 
INCONSISTENCY AT U.HTST’), 

INCONSISTENCY AT U.SEKO' ), 

INCONSISTENCY AT U.CKSV'), 

OPCD FOUND ILLEGAL OPCODE' ), 

O0.CSF FOUND ILLEGAL OPCODE'), 

UNKNOWN BAD DRIVE STATUS AT 0.OSTS'), 
ILLEGAL XFC EXECUTED BY DM’), 

D PICKED UP A ZERO SCB.DB'), 
INCONSISTENCY AT D IDLE LOOP’), 


U POWER UP DIAGNOSTICS FAILED’ ), 

O POWER UP DIAGNOSTICS FAILED’), 

ADAPTER CARD FAILURE’ ), 

EC.TMR TIMED OUT’), 

U.SEND/U.RECV RING REAC INCONSISTENCY’ ), 

UNKNOWN WAITRV REASON AT D.RVCT'), ‘ 

O.ARCS DID NOT FINO CLOSEST UNDONE ZONE’), 

U.SEEK FOUND SEEK TO ILLEGAL TRACK’: ), 

U.HTST INIT DIAG OMA WRITE FAILED’ ), 

U.HTST INIT DIAG DMA COMPARE FAILED’ ), 
U.SYDR FOUND SS.DER SET AND SS.SPN NOT SET‘), 

MASTER ORIVES ACLO ASSERTED’ ) 

vector [39], 
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Dup return status codes 


SDUP_STRUCT = uplit (¢ 
uplit (sasciz'sA SUCCESSFULSN’ ), 
uplit (sasciz'sAINVALID COMMANDSN’ ), 
uplit (sasciz'sANO REGION AVAILABLESN' de 
uplit (sasciz‘sANO REGION SUITABLESN’ ), 
uplit (sasciz'sAPROGRAM NOT KNOWNSN’ ), 
uplit (sasciz'sALOAD FAILURESN’ ), 
uplit (sasciz‘sASTANDALONESN’ ) 

) : vector (7), 

!<bl f/page> 
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' 
upli 
upli 
uplit 
uplit 
uplit 
uplit 
uplit 
uplit 
uplit 
uplit 
uplit 
uplit 


MSCP return status codes 
SCP_STRUCT = uplit ¢ 


SM 
uplLi : (asc iz’ sASUCCESSSN’ ), 
t 


(sasciz'sAINVALID COMMANDSN’ ), 

(sasciz' sACOMMAND ABORTEDSN’ , 

(ssasciz' SAUNIT-OFFLINESN’ ), 

(sasciz' SAUNIT-AVAILABLESN’ ), 

(sasciz' sAMEDIA FORMAT ERRORSN’ ), 

(sasciz' SAWRITE PROTECTEDSN’ ), 

(sasciz' sACOMPARE ERRORSN’ ), 

(sasciz' sADATA ERRORSN’ ), 

(sasciz'sAHOST BUFFER ACCESS ERRORSN’ ), 

(sasciz' sACONTROLLER ERRORSN’ ), 

(sasciz'sADRIVE ERRORSN’ ), 

(sasciz' sAMESSAGE FROM AN INTERNAL DIAGNOSTICSN’ ) 
? : vector (13), 


!<BLF /PAGE> 
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Init code error and informational messages 


DATMSG = uplit (sasciz' ENTER DATE <MM-DD-YYYY> '), 

NO_ADD_UNITS = uplit (sasciz'sNSANO ADDITIONAL UNITS TO FORMAT - ABORTING’ ). 

PWR_MSG = uplit (sasciz'SNSASFTLERR- INIT CODE RE-ENTERED DUE TO PWR FAIL’), 

ABO_MSG = uplit (sasciz’ SNSASFTLERR- ABORTING HOST AND REMOTE PROGRAMS’ ), 

TO_MANY _UNTTS = uplit (sasciz’ SNSASFTLERR- ILLEGAL NUMBER OF UNITS SELECTED’ ), 

GOOD _NUM_ UNITS = uplit (sasciz' SNSASFTLERR- LIMIT OF SIXTEEN UNITS PER FORMATING SESSION’ ), 
BOOT_FAILURE = uplit (sasciz' SNSASFTLERR- RC25 CONTROLLER INITIALIZATION ERROR’ ), 
PROTO_VIOLATION = uplit (seeciz' sNSASFTLERR- PROTOCOL VIOLATION ERROR’), 

PORT_INIT_ERR = uplit (sasciz' sNSASFTLERR- COMMUNICATION AREA INIT ERROR’ ), 

ACTIVE _OUP_SERVER = uplit (sasciz' sNSASFTLERR- DUP SERVER ACTIVE AFTER INITIALIZING’ ). 
INACTIVE_DUP_SERVER = uplit (sesciz’ sNSASFTLERR- DUP SERVER INACTIVE AFTER EXx_SUP _PROG COMMAND’ ), 
t 


Local load media DM module file name.ext 


‘OM_FNSEXT = UPLIT (sSASCIZ' AZFMTR.SAV' ), 
FCT. -REQ_MSG = uplit (sasciz' ENTER FCT FILE NAME TO RESTORE (FILENAME.EXT): ° ). 


Hardware parameter coding questions 


-Q1_IP = uplit (sasciz'RC25 IP REGISTER ADDRESS’), 
-Q2_VECTOR = uplit (sasciz'RC25 INTERRUPT VECTOR ADDRESS’ ), 
-Q3_BR = uplit (sasciz‘'RC25 BUS REQUEST LEVEL’), 
-Q4_UNIT = uplit (ssesciz'UNIT NUMBER TO BRING ONLINE’), 


Software parameter coding questions 
SW_Q1_UNATT = upLit (sasciz' FORMAT IN UNATTENDED REFORMAT MODE’), 


t (sasciz' GNBAscesesscaccsecccaccane NOTICE seeeeseceaaccscccacacs’ ), 
OPERATOR MUST BE PRESENT IN ATTENDED MODE '), 
SW -@4 “UNATT = uplit (sasciz’' sSNA RUNNING IN UN-ATTENDED REFORMAT MODE’ ); 


os 


ee ed i 
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LSSPTP:: .WORD 


SEQ 0060 


Page 16 
-B816;5 (13) 


000000 
177777 


ZRCHB2 ZRCHBO RC2S5 DISK FORMATTER 
REV 6B PATCH 0O GLOBAL TEXT SECTION 


LSLADP: : .WORD 
LSSTA:: .WORD 
L$CO:: .WORD 
LSDTYP:: .WORD 
LSAPT:: .WORD 
LSOTP:: .WORD 
LSPRIO:: .WORD 
LSENVI:: .WORD 
LSEXP1::. WORD 
LSMREV:: 


44 
mam 


LSDEVP:: 
LSExP4:: 


z 
3 


é 


co 


LSDISPATCH:: 
. WORD 
ERRTYP:: .BLKW 


. WORD 
HW. IP. ADRS: : 

. WORD 
HW. VECTOR: : 
HW. BR.LEVEL:: 

. WORD 
HW.UNIT.NO:: 


» WORD 
LSNOHW: : .BLKW 
LSSWLEN:;: 


SW.UNATT: ; 


. WORD 
LSNOSW: : .BLKW 
L$PROT:: .WORD 
WORD 


J5 


5-Apr-1984 13:19:09 
5-Apr-1984 13:16:08 


$LAST 


sDISPATCH 


ooouw oooroooor 


reer +4 -POOCO 
7 


<<L SNDHW -L SHWLEN> 72> 
-5630 

154 

5 


° 
1 


<<L $NDSW-L $SWlEN>/2> 


1 
1 
0 
-1 


SEQ 006 
VAX-11 Bliss-16 v3-555 Non 17 
SPIDERSUSERS: [NEALE .AZTEC JZRCHB2.616;5 (13) 


K5 


-_, 0062 

ZRCHB2 ZRCHBO RC25 DISK FORMATTER 5-Apr-1984 13:19:09 VAX-11 Bliss-16 V3-555 Page 18 
REV B PATCH OO GLOBAL TEXT SECTION S-Apr-1984 13:16:08 SPIDERSUSERS : [NEALE .AZTEC )ZRCHB2.816;5 (13) 
000164 000006 -WORD 6 
000000 -PSECT $PLIT$, RO, D ., GBL 
000000 045 116 045 P.AAA: .ASCII /sNS/ 
000003 124 000 000 «ASCII /T/<00><00> 
000006 045 116 045 P.AAB: .ASCII /sNS/ 
000011 116 045 101 -ASCII /NSA/ 
000014 111 116 111 -ASCII /INI/ 
000017 124 111 101 -ASCII /TIA/ 
000022 114 111 132 -ASCII /LIZ/ 
000025 111 116 107 ASCII /ING/ 
000030 040 122 103 ASCII / RC/ 
000033 065 040 -ASCII 725 / 
000036 103 117 116 II /CON/ 
000041 124 122 117 ASCII /TRO/ 
000044 114 114 105 -ASCIL /LLE/ 
000047 122 040 101 ° II /R A/ 
000052 104 104 122 -ASCII /ODR/ 
000055 105 123 123 ASCII /ESS/ 

072 045 123 -ASCII /:8S/ 
000063 045 117 066 -ASCII /#06/ 

045 101 050 ASCII /#AC/ 
000071 117 0S1 045 -ASCII /0)s8/ 
000074 116 000 ASCII /N/<00> 
000076 045 116 045 P.AAC: .ASCII /sNe/ 
000101 101 114 117 -ASCII /ALO/ 
000104 107 111 103 -ASCII /GIC/ 
000107 101 114 040 . II /AL / 
000112 125 116 111 ASCII /UNI/ 
000115 124 040 045 -ASCII /T #/ 

120 104 062 045 -ASCII /028/ 

000123 101 0S0 104 ASCII /ACO/ 
000126 051 045 123 -ASCII /)8S/ 
000131 045 101 120 ASCII /sAP/ 
000134 110 131 123 ASCII /HYS/ 
000137 111 103 101 -ASCII /ICA/ 
000142 114 040 125 -ASCII “AL _U/ 
000145 116 111 124 II /NIT/ 
000150 040 045 104 -ASCII / #0/ 
000153 045 101 ASCII /2s8A/ 
000156 050 104 051 ASCII /(0)/ 
000161 045 123 045 ASCII /#Ss/ 
000164 101 106 117 ASCII /AFO/ 
000167 122 115 101 -ASCII /RMA/ 
000172 124 040 101 ASCII /T As 
000175 102 117 122 ASCII /B8OR/ 
000200 124 105 104 ASCII /TED/ 
000203 000 -ASCII <00> 
000204 045 116 045 P.AAD: ASCII /sNs/ 
000207 101 115 111 ASCII /AMI/ 
000212 103 122 117 -ASCII /CRO/ 
000215 040 103 117 ASCII / CO/ 
000220 104 105 123 -ASCII /DES/ 
000223 040 115 117 -ASCII / MO/ 


LS 


SEQ eg 


ZRCHB2 ZRCHBO RC25 DISK FORMATTER 5-Apr-1984 13:19:09 VAX-11 Bliss-16 Vv3-555 19 
REV B PATCH 00 GLOBAL TEXT SECTION 5-Apr-1984 13:16:08 SPIDERSUSERS: [NEALE .AZTEC JZRCHB2. 816;5°C (13) 
000231 066 040 126 -ASCII /6 V/ 
000234 105 122 123 -ASCII /ERS/ 
000237 111 117 116 -ASCII /ION/ 
000242 040 116 125 -ASCII 7 NU/ 
000245 115 102 105 -ASCII /MBE/ 
000250 122 040 075 ASCII /R =/ 
000253 045 123 045 ASCII /#Sn/ 
000256 117 062 045 -ASCII /028/ 
000261 101 050 117 -ASCII /ACO/ 
000264 051 045 116 -ASCII /)sN/ 
000267 000 -ASCII <00O> 
000270 045 116 045 P.AAE: .ASCII /sNs/ 
000273 101 102 122 -ASCII /ABR/ 
000276 111 116 107 -ASCII /ING/ 
000301 111 116 107 -ASCII /ING/ 
000304 040 117 116 -ASCII / ON/ 
000307 114 111 116 -ASCII /LIN/ 
000312 105 072 040 -ASCIIL /E: # 
000315 114 117 107 -ASCII /LOG/ 
000320 111 103 101 -ASCII /ICA/ 
000323 114 040 125 -ASCII /L UZ 
000326 116 111 124 -ASCII /NIT/ 
000331 040 045 104 -ASCII / #0/ 
000334 062 045 101 -ASCII /2s8A/ 
000337 050 104 051 -ASCII /(€0)/ 
000342 045 123 045 -ASCII /8S8/ 
000345 101 120 110 -ASCII /APH/ 
000350 131 123 111 -ASCII /YSI/ 
000353 103 101 114 -ASCII /CAL/ 
000356 040 125 116 -ASCII / UN/ 
000361 111 124 040 -ASCII /IT # 
000364 045 104 062 -ASCII /#02/ 
000367 045 101 050 -ASCII /#AC/ 
000372 104 051 045 -ASCII /0)8/ 
000375 116 000 000 -ASCII /N/<00><00> 
000400 045 116 045 P.AAF: .ASCII /siNs/ 
000403 101 044 106 -ASCII /ASF/ 
000406 124 114 105 ASCII /TLE/ 
000411 122 122 oss -ASCII /RR-/ 
000414 040 116 117 -ASCII / NO/ 
000417 116 055 105 -ASCII /N-E/ 
000422 130 111 123 -ASCII /xXIS/ 
000425, 124 105 116 -ASCII /TEN/ 
000430 124 040 122 -ASCII /T R/ 
000433 103 062 065 ASCII /C25/ 
0004 36 040 103 117 -ASCII / CO/ 
000441 116 124 122 -ASCII /NTR/ 
000444 117 114 114 -ASCII /OLLZ 
000447 105 122 040 -ASCII /ER / 
000452 101 104 104 -ASCII /ADD/ 
000455 122 105 123 -ASCII /RES/ 
000460 123 040 045 ASCII /S #/ 
000463 117 066 045 -ASCII /068/ 
000466 101 050 117 -ASCII /ACO/ 
000471 051 045 116 -ASCII /)N/ 
000474 000 000 -ASCII <00><00> 


0004 76 045 101 106 P.AAG: .ASCII /AF/ 


M5 


SEQ 0064 


ZRCHB2 ZRCHBO RC25 DISK FORMATTER 5-Apr-1984 13:19:09 VAX-11 Bliss-16 V3-555 Page 20 
REV 8 PATCH 00 GLOBAL TEXT SECTION S-Apr-1984 13:16:08 SPIDERSUSERS: STNEALE. AZTEC JZRCHB2. B16:5°C (13) 
000501 117 122 115 ASCII /ORM/ 
000504 101 124 124 ASCII /ATT/ 
000507 111 116 107 ASCII /ING/ 
000512 040 120 110 ASCII / PH/ 
000515 131 123 111 ASCII /YSI/ 
000520 103 101 114 «ASCII /CAL/ 
000523 040 125 116 -ASCII / UN/ 
000526 111 124 040 II /IT # 
000531 045 104 062 -ASCII /#D2/ 
000534 045 101 050 ASCII /#AC/ 
000537 104 051 045 ASCII /0)#/ 
000542 116 000 -ASCII /N/<00> 
000544 045 116 045 P.AAH: .ASCII /stNe/ 
000547 101 106 117 -ASCII /AFO/ 
000552 122 115 101 ASCII /RMA/ 
000555 124 124 105 ASCII /TTE/ 
000560 122 040 120 -ASCII /R P/ 
000563 122 117 107 ASCI1 /ROG/ 
000566 122 105 123 ASCII /RES/ 
000571 123 111 116 ASCII /SIN/ 
000574 107 072 040 ASCII /G: / 
000577 040 120 111 ASCII / PI/ 
000602 104 040 110 -ASCII /0 H/ 
111 o75 045 ° II /I=8/ 
000610 117 066 045 -ASCII /06s8/ 
000613 101 050 117 ASCII /ACO/ 
000616 051 045 123 ASCII /)#S/ 
000621 045 123 045 -ASCII /#S/ 
000624 101 120 1)1 ASCII /API/ 
000627 104 040 114 -ASCII /0 L/ 
000632 117 075 045 ASCII /0=#/ 
000635 117 066 045 -ASCII /068/ 
000640 101 050 117 -ASCII /ACO/ 
000643 051 000 000 -ASCII /)/<00><00> 
000646 045 116 000 P.AAI: .ASCII /#N/<00> 
000651 000 -ASCII <00> 
000652 045 116 045 P.AAJ: .ASCII /ssNs/ 
000655 116 045 116 -ASCII /NsN/ 
045 116 045 -ASCII /ssNS/ 
000663 116 045 116 -ASCII /NsN/ 
000666 045 116 045 -ASCII /sNs/ 
000671 116 000 000 -ASCII /N/<00><00> 
000674 045 116 045 P.AAL: .ASCII /sNe/ 
000677 101 044 106 -ASCII /ASF/ 
000702 124 114 105 -ASCII /TLE/ 
000705 122 122 oss -ASCII /RR-/ 
009710 040 125 .—s«a1:16 «ASCII / UN/ 
000713 122 105 103 -ASCII /REC/ 
OOC 716 117 107 116 -ASCII /OGN/ 
000721 111 132 101 ASCII /IZA/ 
000724 102 114 105 -ASCII /BLE/ 
000727 040 105 122 ASCII / ER/ 
000732 122 117 122 ASCII /ROR/ 
000735 040 103 117 ASCII 7 CO/ 
000740 104 105 000 ASCII /DE/<00> 
000743 000 ASCII <00> 


000744 045 116 045 P.AAM: {ASCII /sNw/ 


NS 


SEQ 0065 
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000747 101 044 106 ASCII /A$SF/ 
000752 124 114 105 ASCII /TLE/ 
000755 122 122 oss ASCII /RR-/ 
000760 040 105 116 ASCII / EN/ 
000763 126 105 114 ASCII /VEL/ 
000 766 117 120 105 ASCII /O0PE/ 
000771 057 120 101 -ASCII <57>/PA/ 
000774 103 113 105 II /CKE/ 
000777 124 040 122 ASCII /T R/ 
c01002 105 101 104 ASCII /€AD/ 
001005 040 120 ASCII / (P/ 
001019 101 122 111 ASCII /ARI/ 
001013 124 131 040 ASCII Ty / 
001016 117 122 040 ASCII /OR / 
001021 124 111 115 ASCII /TIM/ 
001024 105 117 125 ASCII /€0U/ 
001027 124 051 SCII /T)/<00> 
001032 045 116 045 P.AAN ASCI1L /sNs/ 
001035 101 044 106 ASCII /A$SF/ 
001040 124 114 105 ASCII /TLE/ 
001043 122 122 055 ASCII /RR-/ 
001046 105 116 ASCII / EN/ 
001051 126 105 114 ASCII /VEL/ 
001054 117 120 105 ,ASCII /OPE/ 
001057 057 120 101 -ASCII <57>/PA/ 
001062 103 113 105 -ASCII /CKE/ 
001065 124 040 127 -ASCII /T W/ 
001070 122 111 124 -ASCII /RIT/ 
001073 105 040 050 ASCII /€ (/ 
001076 120 101 122 ASCII /PAR/ 
001101 111 124 131 -ASCII /ITY/ 
001104 040 117 122 -ASCII / OR/ 
001107 040 124 111 ASCII ¢ TI/ 
001112 115 105 117 -ASCII /MEO/ 
001115 125 124 051 -ASCII /uUT)/ 
001120 000 000 -ASCII <00><00> 
001122 045 116 045 P.AAO: .ASCII /ssNs/ 
001125 101 044 106 ASCII /A$F/ 
001130 124 114 105 ASCII /TLE/ 
001133 122 122 oss -ASCII /RR-/ 
001136 040 103 117 -ASCII / CO/ 
001141 116 124 122 -ASCII /NTR/ 
001144 117 114 114 -ASCII /OLL/ 
001147 105 122 040 -ASCII /ER / 
001152 122 117 115 -ASCII /ROM/ 
001155 040 101 116 -ASCII / AN/ ° 
001160 104 040 122 * ,ASCII /O0 R/ 
001163 101 115 04 -ASCII /AM / 
001166 120 101 122 -ASCII /PAR/ 
001171 111 124 131 -ASCII /ITY/ 
001174 000 -ASCII <00><00> 
001176 045 116 045 P. AAP -ASCII /ssNs/ 
001201 101 044 106 ASCII /A$F/ 
001204 124 114 105 ASCII /TLE/ 
001207 122 122 055 ASCII /RR-/ . 
001212 040 103 117 rt 4 CO/ 


B6 


SEQ 0066 


ZRCHB2 ZRCHBO RC25 DISK FORMATTER ; S-Apr-1984 13:19:09 VAX-11 Bliss-16 Vv3-555 Page 22 
REV B PATCH 0O GLOBAL TEXT SECTION 5-Apr-1964 13:16:08 SPIDERSUSERS: [NEALE .AZTEC JZRCHB2.616;5 (13) 
001220 117 114 114 «ASCII /OLL/ 
001223 105 122 040 -ASCII /ER / 
001226 122 101 115 -ASCII /RAM/ 
001231 040 120 101 -ASCII / PA/ 
001234 lee 111 124 -ASCII /RIT/ 
001237 131 000 000 -ASCII /Y¥/<00><00> 
001242 045 116 045 P.AAQ: .ASCII /sNe/ 
001245 101 044 106 -ASCII /A8F/ 
001250 124 114 105 . II /TLE/ 
001253 122 122 oss -ASCII /RR-/ 
001256 040 103 117 «ASCII 7 CO/ 
001261 116 124 122 -ASCII /NTR/ 
001264 117 114 114 . II /OLL/ 
001267 105 122 040 -ASCII /ER / 
001272 122 117 115 ASCII /ROM/ 
001275 040 120 101 -ASCII / PAs 
001300 122 111 124 -ASCII /RIT/ 
001303 131 000 000 -ASCIL /Y/<00><00> 
001306 045 116 045 P.AAR: .ASCII /NS/ 
001311 101 044 106 -ASCII /A8F/ 
001314 124 114 105 -ASCII /TLE/ 
001317 122 122 oSS -ASCII /RR-/ 
001322 040 122 111 . II / RI/ 
001325 116 107 040 . I /NG / 
001330 122 105 101 -ASCII /REA/ 
001333 104 040 050 . II /0 (/ 
001336 120 101 122 . II /PAR/ 
001341 111 124 131 ASCII /ITy/ 
001344 040 117 122 ASCII / OR/ 
001347 040 124 111 ASCII / TI/ 
001352 115 105 117 -ASCII /MEO/ 
001355 125 124 051 -ASCII /UT)/ 
001360 000 000 -ASCII <00><00> 
001362 045 116 045 P.AAS: .ASCII /Ne/ 
001365 101 044 106 -ASCII /ASF/ 
001370 124 114 105 II /TLEZ 
001373 122 122 OSs ASCII /RR-/ 
001376 040 122 111 ASCII / RI/ 
001401 116 107 -ASCII /NG / 
001404 127 122 111 II /WRI/ 
001407 124 105 040 -ASCII /TE / 
001412 0SO 120 101 ASCII /(PA/ 
001415 122 111 124 ASCII /RIT/ 
001420 131 040 117 ASCII /yY 0O/ 
001423 122 040 124 ASCII /R T/ 
001426 111 115 105 -ASCII /IME/ 
001431 117 125 124 ASCII /0UT- 
001434 051 000 ASCII /)7<00> 
001436 045 116 045 P.AAT: .ASCII /#Na/ 
001441 101 044 106 -ASCII /ASF/ 
001444 124 114 105 -ASCII /TLEZ 
001447 122 122 055 ASCII /RR-/ 
001452 040 111 116 ASCII / IN/ 
001455 124 105 122 -ASCII /TER/ 
001460 122 125 120 -ASCII /RUP/ 
001463 124 040 115 ASCII /T M/ 


001466 101 123 124 "ASCII /AST/ 


C6 


ZRCHB2 ZRCHBO RC25 DISK FORMATTER 5-Apr-1984 13:19:09 VAX-11 Bliss-16 v3-555 ~beah 2 
REV B PATCH 00 GLOBAL TEXT SECTION 5-Apr-1964 13:16:08 SPIDERSUSERS: (NEALE .AZTEC JZRCHB2.816;5 (13) 
001471 105 122 000 -ASCII /ER/<00> 
001474 045 116 045 P.AAU: ASCII /sNe/ 
001477 101 044 106 -ASCII /A8F/ 
001502 124 114 105 -ASCII /TLE/ 
001505 122 122 055 -ASCII /RR-/ 
001510 040 110 117 -ASCII / HO/ 
001513 123 124 040 . II /ST / 
001516 101 103 103 . II /ACC/ 
001521 105 123 123 -ASCII /ESS/ 
001524 040 124 111 -ASCII / TI/ 
001527 115 105 117 -ASCII /MEO/ 
001532 125 124 000 -ASCII /UT/<00> 
001535 000 -ASCII <00> 
001536 045 116 045 P.AAV: .ASCII /NS/ 
001541 101 044 106 -ASCII /A8F/ 
001544 124 114 105 -ASCII /TLE/ 
001547 122 122 SS -ASCII /RR-/ 
001552 040 103 122 -ASCI1 7 CR/ 
001555 105 104 111 -ASCII /EDI/ 

1 124 040 114 Il /T Ls 
001563 111 115 111 ASCII /IMI/ 
001566 124 040 105 ASCII /T E/ 
001571 130 103 105 -ASCII /XCE/ 
001574 105 104 105 -ASCII /€DE/ 
001577 104 000 000 -ASCII /0/<00><00> 
001602 045 116 045 P.AAW: .ASCII /stNe/ 
001605 101 044 106 ASCII /ASF/ 
001610 124 114 105 -ASCII /TLE/ 
001613 122 122 oss . II /RR-/ 
001616 040 102 125 -ASCII 7 BU/ 
001621 123 040 115 -ASCII /S M/ 
001624 101 123 124 -ASCII /AST/ 
001627 105 122 040 -ASCII /ER / 
001632 105 122 122 -ASCII /ERR/ 
001635 117 122 000 -ASCII /OR/<00> 
001640 045 116 045 P.AAX: ASCII /sNe/ 
001643 101 044 106 -ASCII /ASF/ 
001646 124 114 105 -ASCII /TLE/ 
001651 122 122 oss -ASCII /RR-/ 
001654 040 104 111 -ASCII 7 OI/ 
001657 101 107 116 -ASCII /AGN/ 
001662 117 123 124 ASCII /0OST/ 
001665 111 103 040 -ASCII /IC / 
001670 103 117 116 ASCII /CON/ 
001673 124 122 117 -ASCII /TRO/ 
001676 114 114 105 -ASCII /LULLE/ 
001701 122 040 106 -ASCII /R Fs 
001704 101 124 101 -ASCII /ATA/ 
001707 114 0#0 105 -ASCII /L E/ 
001712 122 122 117 -ASCII /RRO/ 
001715 122 o7o 000 -ASCII /R/<00><00> 
001720 045 116 045 P.AAY:; .ASCIIL /sNw/ 
001723 101 044 106 -ASCII /ASF/ 
001726 124 114 105 -ASCII /TLE/ 
001731 122 122 oss ° II /RR-/ 
001734 040 111 116 -ASCII / IN/ 


Do 


ZRCHBO ZRCHBO RC25 DISK FORMATTER 5-Apr-1984 13:19:09 VAX-11 Blise-16 v3-555 wee og 24 
REV B PATCH OO GLOBAL TEXT SECTION 5-Apr-1984 13:16:08 SPIDERSUSERS: [NEALE .AZTEC )ZRCHB2.616;5 (13) 
001742 125 103 124 -ASCII /uCT/ 
001745 111 117 116 -ASCII /ION/ 
001750 114 117 . ¢ i ae 
001753 117 120 040 ASCII /0OP / 
0017’ 124 111 115 -ASCII /TIM/ 
001761 105 117 125 7 II /€0u/ 
001764 124 000 -ASCII /17<00> 
001766 045 116 045 P.AAZ: .ASCII /sNS/ 
001771 101 044 106 .ASCII /ASF/ 
001774 124 114 105 II /TLE/ 
001777 122 122 055 ASCII /RR-/ 
002002 040 111 116 -ASCII 7/7 IN/ 
002005 126 101 114 -ASCII /VAL/ 
002010 111 104 040 -ASCII IO / 
002013 103 117 116 -ASCII /CON/ 
002016 116 105 103 ASCII /NEC/ 
002021 124 111 117 ASCII /TIO/ 
002024 116 040 171 ASCIL /N I/ 
002027 04 105 116 -ASCII /DEN/ 
002032 124 111 106 II /TIF/ 
002035 111 105 122 -ASCII /IER/ 
002040 000 000 -ASCII <00><00> 
002042 045 116 045 P.ABA: .ASCII /ssNs/ 
002045 101 044 106 -ASCII /ASF/ 
002050 124 114 105 -ASCII /TLE/ 
002053 122 122 os -ASCII /RR-/ 
002056 040 111 116 -ASCII 7 IN/ 
002061 124 105 122 -ASCII /TER/ 
002064 122 125 120 -ASCII /RUP/ 
002067 124 040 127 ASCII /T wW/ 
002072 122 111 124 -ASCII /RIT/ 
002075 105 000 000 -ASCII /€&/<00><00> 
002100 045 116 045 P.ABB: .ASCII /sNe/ 
002103 101 044 106 -ASCII /ASF/ 
002106 124 114 105 ASCII /TLE/ 
002111 122 122 os5 ASCII /RR-7 
002114 040 115 101 ASCII / MA/ 
002117 111 116 124 -ASCII /INT/ 
002122 105 116 101 .ASCII /ENA/ 
002125 116 103 105 II /NCE/ 
002130 040 122 105 -ASCII 7 RE/ 
002133 101 104 057 ASCII /AD/<57> 
002136 127 122 111 -ASCII /WRI/ 
002141 124 105 040 6 6MTE 
002144 111 116 126 ASCII /INV/ 
002147 101 114 111 -ASCII /ALIZ 
002152 04 040 122 -ASCII /0 R/ 
002155 105 107 111 -ASCII /EGI/ 
002160 117 116 040 i II /ON / 
002163 111 104 105 ASCII /IDE/ 
002166 116 124 111 ASCII /NTI/ 
002171 106 111 105 ASCII /FIE/ 
002174 122 000 -ASCII /R/<00> 
002176 045 116 045 P.ABC: .ASCII /sNe/ 
002201 101 044 106 -ASCII /ASF/ 
002204 124 114 105 ASCII /iLEZ 


E6 


ZRCHB2 ZRCHBO RC25 DISK FORMATTER 5-Apr-1984 13:19:09 VAX-11 Bliss-16 V3-555 yy 2 
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002212 040 115 101 -ASCII / MA/ 
002215 111 116 124 «ASCII /INT/ 
002220 105 116 101 «ASCII /ENA/ 
002223 116 103 105 -ASCII /NCE/ 
002226 040 127 122 «ASCII / WR/ 
002231 111 124 105 «ASCII /ITE/ 
002234 040 114 117 -ASCII / LO/ 
002237 101 104 040 -ASCII /AD / 
002242 124 117 040 -ASCII /TO / 
002245 116 117 116 -ASCII /NON/ 
002250 oss 114 117 -ASCII /-LO/ 
002253 101 104 101 -ASCII /ADA/ 
002256 102 114 105 -ASCII /BLE/ 
002261 040 103 117 -ASCII 7 CO/ 
002264 116 124 122 -ASCII /NTR/ 
002267 117 114 114 -ASCII /OLL/ 
002272 105 122 000 «ASCII /ER/<00> 
002275 000 -ASCI1 <00> 
002276 045 116 045 P.ABD: .ASCII /sNe/ 
002301 101 044 106 -ASCII /ASF/ 
002304 124 114 105 -ASCII /TLE/ 
002307 122 122 oss -ASCII /RR-/ 
002312 040 103 117 -ASCII / CO/ 
002315 116 124 122 -ASCII /NTR/ 
002320 117 114 114 -ASCII /OLL/ 
002323 105 122 040 -ASCII. /ER / 
00.2326 122 101 115 -ASCII /RAM/ 
002331 040 105 122 -ASCII / ER/ 
002334 122 117 122 «ASCII /ROR/ 
002337 040 0SO 116 -ASCII 7 (N/ 
002342 117 116 oss -ASCII /ON-/ 
002345 120 101 122 -ASCII /PAR/ 
002350 111 124 131 -ASCII /ITY/ 
002353 051 000 000 -ASCII 7/)/<00><00> 
002356 045 116 045 P.ABE: .ASCII /sNs/ 
002361 101 044 106 -ASCII /ASF/ 
002364 124 114 105 -ASCII /TLE/ 
002367 122 122 oss -ASCII /RR-/ 
002372 040 111 116 -ASCII / IN/ 
002375 111 124 040 -ASCII /IT / 
002400 123 105 121 -ASCII /SEQ/ 
002403 125 105 116 -ASCII /UEN/ 
002406 103 105 040 -ASCII /CE / 
002411 105 122 122 -ASCII /ERR/ 
002414 117 122 000 -ASCII /0R/<00> 
002417 000 -ASCII <00> 
002420 045 116 045 P.ABF;: .ASCII /sNe/ 
002423 101 044 106 -ASCII /ASF/ 
002426 124 114 105 ASCII /TLE/ 
002431 122 122 oss -ASCII /RR-/ 
002434 040 110 111 -ASCII / HI/ 
002437 107 110 040 ASCII /GH / 
002442 114 105 126 -ASCII /LEV/ 
002445 105 114 040 -ASCII /EL / 
002450 120 122 117 -ASCII /PRO/ 
002453 124 117 103 ASCII /TOC/ 


F6 


SEQ 0070 


ZRCHB2 ZRCHBO RC2S DISK FORMATTER 5-Apr-1984 13:19:09 VAX-11 Bliss-16 V3-555 Page 26 
REV B PATCH 00 GLOBAL TEXT SECTION 5-Apr-1984 13:16:08 SPIDERSUSERS : [NEALE .AZTEC JZRCHB2. B16;5°C (13) 
002461 111 116 103 ASCII /INC/ 
002464 117 115 120 ASCII /OMP/ 
002467 101 124 111 -ASCII /ATI/ 
002472 102 111 114 ASCII /BIL/ 
002475 111 124 131 ASCII /ITY/ 

2 040 105 122 ASCII / ER/ 
002503 122 117 122 «ASCII /ROR/ 
002506 000 -ASCII <00><00> 
002510 045 116 045 P.ABG: .ASCII /sNs/ 
002513 101 044 106 -ASCII /ASF/ 
002516 124 114 105 ASCII /TLE/ 
002521 122 122 oss ASCII /RR-/ 
002524 040 120 125 ASCII / PU/ 
002527 122 107 105 ASCII /RGE/ 
002532 057 120 117 ASCII <57>/P0/ 
002535 114 114 040 ASCII /it / 
002540 110 101 122 ASCII /HAR/ 
002543 104 127 101 ASCI1L /OWA/ 
002546 122 105 040 ASCII /RE / 
002551 106 101 111 ASCII /FAI/ 
002554 114 125 122 -ASCII /LUR/ 
002557 105 040 000 -ASCII /E /<00> 
002562 045 116 045 P.ABH: .ASCII /ssNe/ 
002565 101 044 106 ASCII /A$8F/ 
002570 124 114 105 -ASCII /TLE/ 
002573 122 122 oSS ASCII /RR-/ 
002576 040 115 101 -ASCII / MA/ 
002601 120 120 111 II /PPI/ 
002604 116 107 040 ASCII /NG / 
002607 122 105 107 ASCII /REG/ 
002612 111 123 124 -ASCII /IST/ 
002615 105 122 040 -ASCII /ER / 
002620 122 105 101 -ASCII /REA/ 
002623 104 040 105 ASCII /0 E/ 
002626 122 122 117 ASCII /RRO/ 
002631 122 040 0SO ASCII /R (/ 
002634 120 101 122 ASCII /PAR/ 
002637 111 124 131 -ASCII /ITy/ 
002642 040 117 122 ASCII / OR/ 
002645 040 124 111 ASCII / TI/ 
002650 115 105 117 -ASCII /MEO/ 
002653 125 124 051 -ASCII /UT)/ 
002656 000 -ASCII <00><00> 
002660 000674‘ P.AAK ° P.AAL 
002662 000744: -WORD P.AAM 
002664 001032’ WORD P.AAN 
002666 001122’ WORD P.AAO 
002670 001176’ WORD P.AAP 
002672 001242’ WORD P.AAQ 
002674 001306' WORD P.AAR 
002676 001362’ WORD P.AAS 
002700 001436’ WORD P.AAT 
002702 001474' -WORD P,.AAU 
002704 001536’ P.AAV 
002706 001602’ -WORD P,AAW 
002710 001640’ -WORD P,AAX 


002712 001720' -WORD P,AAY 
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002714 001766' -WORD P.AAZ 
002716 002042’ -WORD P.ABA 
002720 002100’ -WORD P.ABB 
002722 002176' -WORD P.ABC 
002724 002276' -WORD P.ABD 
002726 002356’ -WORD P.ABE 
002730 002420' «WORD P.ABF 
002732 002510' -WORD P.ABG 
002734 002562’ -WORD  P.ABH 
002736 045 116 045 P.ABJ: .ASCII /sNS/ 
002741 101 044 106 -ASCII /ASF/ 
002744 124 114 105 ASCII /TLE/ 
002747 122 122 oss -ASCII /RR-/ 
002752 040 122 105 II / RE/ 
002755 123 120 117 ASCII /SPO/ 
002760 116 123 105 ASCII /NSE/ 
002763 040 123 124 -ASCII / ST/ 
002766 101 124 125 ASCI1 /ATU/ 
002771 123 040 105 -ASCII /S E/ 
002774 122 122 117 . I /RRO/ 
002777 122 O72 045 ASCII /R:8/ 
003002 123 000 -ASCII /S/<00> 
003004 045 116 045 P.ABK: .ASCII /sNe/ 
003007 101 O44 106 -ASCII /ASF/ 
003012 124 114 105 -ASCII /TLE/ 
003015 122 122 055 -ASCII /RR-/ 
003020 040 110 117 -ASCII / HO/ 
003023 123 124 057 -ASCII /ST/<57> 
003026 103 117 116 ASCII /CON/ 
003031 124 122 117 -ASCII /TRO/ 
003034 114 114 105 ASCII /LLE/ 
003037 122 040 117 -ASCII /R O/ 
003042 125 124 040 -ASCII /UT / 
003045 117 106 040 -ASCII /OF / 
003050 123 105 121 -ASCII /SEQ/ 
003053 000 «ASCII <00> 
003054 045 116 045 P.ABL: .ASCII /ssNe/ 
003057 101 044 106 -ASCII /ASF/ 
003062 124 114 105 -ASCII /TLE/ 
003065 122 122 oss II /RR-/ 
003070 040 122 105 ASCII / RE/ 
003073 115 117 124 ASCII /MOT/ 
003076 105 040 120 ASCII /E P/ 
003101 122 117 107 -ASCII /ROG/ 
003104 040 116 117 -ASCII / NO/ 
003107 124 040 122 -ASCII /T R/ 
003112 125 116 116 ASCII /UNN/ 
003115 111 116 107 ASCII /ING/ 
003120 000 000 -ASCII <00><00> 
003122 045 116 045 P.ABM: .ASCII /sNe/ 
003125 101 044 106 -ASCII /ASF/ 
003130 124 114 105 ASCII /TLE/ 
003133 122 122 oss ASCII /RR-/ 
003136 040 125 116 ASCII / UN/ 
003141 113 116 117 ASCII /KNO/ 
003144 127 116 040 ASCII /WN / 
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003152 125 122 116 ASCII /URN/ 
003155 040 123 124 ASCII / ST/ 
003160 101 124 125 -ASCII /ATU/ 
003163 123 040 103 ASCII /S C/ 
003166 117 104 105 ASCII /ODE/ 
003171 000 -ASCII <00> 
003172 045 116 045 P.ABN: .ASCII /ssNe/ 
003175 101 C44 106 -ASCII /ASF/ 
003200 124 114 105 ASCII /TLE/ 
003203 122 122 os5 -ASCII /RR-/ 
00 040 103 117 ASCII / CO/ 
003211 115 040 101 ASCII /M A/ 
003214 122 105 101 -ASCII /REA/ 
003217 111 116 -ASCII / IN/ 
003222 111 124 040 -ASCII /IT / 
003225 105 122 122 -ASCII /ERR/ 
003230 117 122 000 -ASCII /0R/<00> 
003233 000 -ASCI1 <00> 
003234 045 116 045 P.ABO: .ASCII /sNe/ 
003237 101 044 106 -ASCII /ASF/ 
003242 124 114 105 ASCII /TLE/ 
003245 122 122 oss -ASCII /RR-/ 

040 120 117 -ASCII / PO/ 
003253 122 124 057 ASCII /RT/<57> 
003256 110 117 123 ASCII /HOS/ 
003261 124 040 123 ASCII /T S/ 
003264 131 116 103 -ASCII /YNC/ 
003267 040 105 122 -ASCII / ER/ 
003272 122 117 122 -ASCII /ROR/ 
003275 000 ‘ II <00> 
003276 045 116 045 P.ABP: .ASCII /ssNe/ 
003301 101 044 106 ASCII /A$SF/ 
003304 124 114 105 -ASCII /TLE/ 
003307 122 122 os5 ASCII /RR-/ 
003312 040 115 105 -ASCII / ME/ 
003315 123 123 101 ASCII /SSA/ 
003320 107 105 040 ASCII /GE / 
003323 114 105 116 ASCII /LEN/ 
003326 107 124 110 ASCII /GTH/ 
003331 040 105 122 ‘ II / ER/ 
003334 122 117 122 ASCII /ROR/ 
003337 000 -ASCII <OO> 
003340 045 116 045 P.ABQ: .ASCII /sNeS/ 
003343 101 044 106 -ASCII /ASF7 
003346 124 114 105 -ASCII /TLE/ 
003351 122 122 055 ASCII /RR-/ 
003354 125 116 ASCII / UN/ 
003357 113 116 117 ASCII /KNO/ 
003362 127 116 040 ASCII /WN / 
003365 105 116 104 -ASCII /€ND/ 
003370 103 117 104 ASCII /COD/ 
003373 105 040 122 ASCII /€ R/ 
003376 105 103 105 ASCII /€CE/ 
003401 111 126 105 ASCII /IvE/ 
003404 104 000 ASCII /0/<00> 
003406 045 116 045 P ABR: ASCII /sNS/ 
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003414 124 114 105 ASCII /TLE/ 
003417 122 122 055 ASCII /RR-/ 
003422 040 101 104 ASCII 7 AD/ 
003425 101 120 124 ASCII /APT/ 
003430 117 122 040 ASCII /OR / 
003433 120 125 122 -ASCII /PUR/ 
003436 107 105 040 -ASCII /GE / 
003441 105 122 122 ASCII /ERR/ 
003444 117 122 000 ASCII /OR/<00> 
003447 000 -ASCII <00> 
003450 045 116 045 P.ABS: .ASCII /sNs/ 
003453 101 044 106 -ASCII /ASF/ 
003456 124 114 105 ASCII /TLE/ 
003461 122 122 055 -ASCII /RR-/ 
003364 040 125 116 ASCII / UN/ 
003467 113 116 117 ASCII /KNO/ 
003472 127 116 040 ASCII /WN / 
003475 111 116 124 -ASCIL /INT/ 
003500 105 122 122 -ASCII /ERR/ 
003503 125 120 124 Il /UPT/ 
003506 000 000 -ASCII <00><00> 
003510 045 116 045 P.ABT: .ASCII /sNes/ 
003513 101 044 106 -ASCII /A8F/ 
003516 124 114 105 -ASCII /TLE/ 
003521 122 122 0s5 ASCII /RR-/ 
003524 040 111 116 ASCII / IN/ 
003527 111 124 040 -ASCII /IT / 
003532 123 105 121 -ASCII /SEQ/ 
003535 040 123 124 -ASCII 7 ST/ 
003540 105 120 040 -ASCII /EP / 
003543 124 111 115 -ASCII /TIM/ 
003546 105 104 040 -ASCII /€D / 
003551 117 125 124 -ASCII /OUT/ 
003554 000 000 -ASCII <00><00> 
003556 045 116 045 P.ABU: .ASCII /sNe/ 
003561 101 044 106 -ASCII /ASF/ 
003564 124 114 105 -ASCII /TLE/ 
003567 122 122 oss ASCII /RR-/ 
003572 040 111 116 -ASCII 7 IN/ 
003575 111 124 040 ASCII /IT # 
003600 123 105 121 ASCII /SEQ/ 
003603 040 103 117 ASCII / CO/ 
003606 115 120 101 ASCII /MPA/ 
003611 122 105 040 -ASCII /RE / 
003614 105 122 122 ASCII /ERR/ 
003617 117 122 000 -ASCII /0R/<00> 
003622 045 116 045 P.ABV: .ASCII /sNe/ 
003625 101 044 106 -ASCII /A8F/ 
003630 124 114 105 -ASCII /TLE/ 
003633 122 122 055 ASCII /RR-/ 
003636 040 125 116 -ASCII / UN/ 
003641 105 130 120 II /€xP/ 
003644 105 103 124 ASCII /€CT/ 
003647 105 104 040 ASCII /E€D / 
003652 101 124 124 ASCII /ATT/ 
003655 105 116 124 ASCII /ENT/ 
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003663 040 105 116 -ASCII / EN/ 
003666 104 040 115 -ASCII /0 M/ 
003671 105 123 123 ASCII /€SS/ 
003674 101 107 105 ASCII /AGE/ 
003677 040 122 105 ASCII / RE/ 
003702 103 105 111 ASCII /CEI/ 
003705 126 105 104 ASCII /VED/ 
003710 000 000 SCII <00><00> 
003712 045 116 045 P.ABW: .ASCII /sNe/ 
003715 101 044 10€ -ASCII /A8F/ 
003720 124 114 105 ASCII /TLE/ 
003723 122 122 oss ASCII /RR-/ 
003726 040 125 116 -ASCII 7 UN/ 
003731 105 130 120 ASCII /EXxXP/ 
003734 105 103 124 ASCII /€CT/ 
003737 105 104 040 ASCII /ED / 
003742 103 117 115 -ASCII /COM/ 
003745 115 101 116 Il /MAN/ 
003750 104 040 117 -ASCII /0 O/ 
003753 120 103 117 ASCII /PCO/ 
003756 104 105 040 -ASCII /DE / 
003761 111 116 040 ASCII /IN / 
003764 105 116 104 -ASCII /END/ 
003767 040 115 105 -ASCII / ME/ 
003772 123 123 101 ASCII /SSA/ 
003775 107 105 040 -ASCII /GE / 
004000 122 105 103 ASCII /REC/ 
004003 105 111 126 -ASCII /€Iv/ 
004006 105 104 000 -ASCII /€D/<00> 
004011 000 -ASCII <00> 
004012 045 116 045 P.ABX: .ASCII /sNe/ 
004015 101 044 106 -ASCII /A8F/ 
004020 124 114 105 -ASCII /TLE/ 
004023 122 122 oss -ASCII /RR-7/ 
004026 040 125 116 -ASCII / UN/ 
004031 105 130 120 «ASCII /EXP/ 
004034 105 103 124 -ASCII /€CT/ 
004037 105 104 040 -ASCII /€D / 
004042 123 105 122 -ASCII /SER/ 
004045 111 117 125 «ASCII /I0uU/ 
004050 123 040 105 -ASCII /S E/ 
004053 130 103 105 ASCII /XxCE/ 
004056 120 124 111 ASCII /PTI/ 
004061 117 116 04 ASCII /ON / 
004064 105 116 104 -ASCII /END/ 
004067 040 115 105 ASCII / ME/ 
004072 123 123 101 ASCII /SSA/ 
004075 107 105 040 ASCII /GE / 
004100 122 105 103 ASCII /REC/ 
004103 105 111 126 ASCII /€Iv/ 
004 106 105 104 000 ASCII /€0/<00> 
004111 000 -ASCII «00> 
004112 045 116 045 P.ABY: .ASCII /sNe/ 
004115 101 044 106 ASCII /A8F/ 
004120 124 114 105 -ASCII /TLE/ 
004123 122 122 oss ASCII /RR-/ 


004126 040 111 116 ‘ASCII 7/ IN/ 
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004131 126 101 114 -ASCII /VAL/ 
004134 111 104 040 -ASCII /ID / 
004137 103 117 115 «ASCII /COM/ 
004142 115 101 116 ASCII /MAN/ 
004145 104 040 105 -ASCII /0 E/ 
004150 116 104 040 ASCII /NOD / 
004153 115 105 123 ASCII /MES/ 
004156 123 101 107 ASCII /SAG/ 
004161 105 040 122 -ASCII /E R/ 
004164 105 103 105 ASCII /ECE/ 
004167 111 126 105 ASCII /IVE/ 
004172 104 000 -ASCII /0/7<00> 
004174 045 116 045 P.ABZ: .ASCII /sNs/ 
004177 101 044 106 -ASCII /ASF/ 
004202 124 114 105 ASCII /TLE/ 
004205 122 122 oss ASCII /RR-/ 
004210 040 125 116 ASCII / UN/ 
004213 113 116 117 -ASCI1L /KNO/ 
004216 127 116 040 -ASCII /WN / 
004221 115 105 123 ASCII /MES/ 
004224 123 101 107 ASCII /SAG/ 
004227 105 040 124 -ASCII /E T/ 
004232 131 120 105 ASCII /YPE/ 
004235 040 122 105 -ASCII / RE/ 
004240 103 105 111 ASCII /CEI/ 
004243 126 105 104 ASCII /VED/ 
004246 000 000 -ASCII <00><00> 
004250 045 116 045 P.ACA: .ASCII /sNe/ 
004253 101 044 106 «ASCII /ASF/ 
004256 124 114 105 II /TLE/ 
004261 122 122 oss -ASCII /RR-/ 
004264 040 117 125 ASCII / Ou/ 
004267 124 123 124 ASCII /TST/ 
004272 101 116 104 ASCII /ANO/ 
004275 111 116 107 -ASCII /ING/ 
004300 040 103 117 II / Cov 
004303 115 115 101 ASCII /MMA/ 
004306 116 104 040 ASCII /NO / 
004311 102 125 106 -ASCII /BUF/ 
004314 106 105 122 ASCII /FER/ 
004317 040 106 125 -ASCII / FU/ 
004322 114 114 000 «ASCII /LL/<00> 
004325 000 -ASCII <00> 
004326 045 116 045 P.ACB: .ASCII /sNe/ 
004331 101 o6a 106 -ASCII /ASF/ 
004334 124 114 105 -ASCII /TLE/ 
004337 122 122 055 -ASCII /RR-/ 
004342 040 117 125 -ASCII / OU/ 
004345 124 040 123 -ASCII /T S/ 
004350 124 101 116 -ASCII /TAN/ 
004353 104 111 116 -ASCII /DIN/ 
004356 107 040 103 -ASCII /G C/ 
004361 117 115 115 -ASCII /OMM/ 
004364 101 116 104 -ASCII /AND/ 
004367 040 102 125 -ASCII / BU/ 
004372 106 106 105 -ASCII /FFE/ 


004375 122 040 117 -ASCII /R O/ 


L6 
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004400 125 124 040 -ASCII /uUT / 
004403 117 106 040 -ASCII /OF / 
004406 123 131 116 ASCII /SYN/ 
004411 103 040 105 -ASCII /C E/ 
004414 122 122 117 -ASCII /RRO/ 
004417 122 000 000 «ASCII /R/<00><00> 
004422 045 116 045 P.ACC: .ASCII /sNe/ 
004425 101 044 106 -ASCII /ASF/ 
004430 124 114 105 -ASCII /TLE/ 
004433 122 122 oss -ASCII /RR-/ 
004436 040 125 116 -ASCII / UN/ 
004441 113 116 117 -ASCII /KNO/ 
004444 127 116 040 -ASCII /WN / 
004447 115 105 123 -ASCII /MES/ 
064452 123 101 107 -ASCII /SAG/ 
004455 105 040 116 -ASCII /E N/ 
004460 125 115 102 -ASCII /UMB/ 
004463 105 122 040 -ASCIL /ER / 
004466 122 105 103 -ASCII /REC/ 
004471 105 111 126 -ASCII /EIV/ 
004474 105 104 000 -ASCII /€D/<00> 
004477 000 -ASCII <00> 
004500 045 116 045 P.ACDO: .ASCII /ssNe/ 
004503 101 044 106 -ASCII /ASF/ 
004506 124 114 105 -ASCII /TLE/ 
004511 122 122 oss -ASCII /RR-/ 
004514 040 106 111 -ASCII / FI/ 
004517 114 105 040 -ASCII /LE / 
004522 122 105 101 -ASCII /REA/ 
004525 104 040 105 -ASCII /0 E/ 
004530 122 122 117 -ASCII /RRO/ 
004533 122 000 000 «ASCII /R/<00><00> 
004536 045 116 045 P.ACE: .ASCII /sNe/ 
004541 191 044 106 -ASCII /ASF/ 
004544 124 114 105 -ASCIZI /TLE/ 
004547 122 122 oss -ASCII /RR-/ 
004552 040 120 117 -ASCII / PO/ 
004555 122 124 057 -ASCII /RT/<57> 
004560 103 117 116 «ASCII /CON/ 
004563 124 122 117 -ASCII /TRO/ 
004566 114 114 105 ASCII /LLE/ 
004571 122 040 124 ASCII /R T/ 
004574 111 115 105 ASCII /IME/ 
004577 117 125 124 ASCII /0UT/ 
004602 040 105 122 -ASCII / ER/ 
004605 122 117 122 ASCII /ROR/ 
004610 000 000 -ASCII <00><00> 
004612 045 116 045 P.ACF: .ASCII /sNe/ 
004615 101 044 106 -ASCII /ASF/ 
004620 124 114 105 ASCII /TLE/ 
004623 122 122 oss ASCII /RR-/ 
004626 040 111 114 ASCII / Ii/ 
004631 114 105 107 ASCII /LEG/ 
004634 101 114 040 ASCII /AL / 
004637 106 103 124 ASCII /*FCT/ 
004642 040 106 111 ASCII / FI/ 
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004650 114 105 116 -ASCII /LEN/ 
004653 107 124 110 «ASCII /GTH/ 
004656 000 000 ASCII <00><00> 
004660 002736' P.ABI WORD P.ABJ 
004662 00 : WORD P.ABK 
004664 003054’ WORD P.ABL 
004666 003122' WORD P.ABM 
C04670 003172' -WORD P.ABN 
004672 003234' «WORD P.ABO 
004674 003276' . P.ABP 
004676 003340' WORD P.ABQ 
004700 003406' WORD P.ABR 
004702 003450’ -WORD P.ABS 
004704 003510' P.ABT 
004706 003556' WORD P.ABU 
004710 003622' P.ABV 
004712 003712’ WORD P.ABW 
004714 004012’ WORD P.ABX 
004716 004112’ WORD P.ABY 
004720 004174' WORD P.ABZ 
004,22 004250' WORD P.ACA 
004724 004326' -WORD P.ACB 
004726 004422’ «WORD P.ACC 
004730 004500' WORD P.ACOD 
004732 004536' WORD P.ACE 
004734 004612’ -WORD- P.ACF 
004736 045 116 045 P.ACH: .ASCII /sNe/ 
004741 101 044 106 -ASCII /ASF/ 
004744 124 114 105 ASCII /TLE/ 
004747 122 122 oss ASCII /RR-/ 
004752 040 126 101 ASCII / VA/ 
004755 130 040 122 -ASCII /X R/ 
004760 105 101 104 -ASCII /EAD/ 
004763 057 127 122 ASCII <5S7>/wWR/ 
004766 111 124 105 ASCII /ITE/ 
004771 040 105 122 -ASCII / ER/ 
004774 122 117 122 ASCII /ROR/ 
004777 040 117 116 ASCII / ON/ 
005002 040 111 116 ASCII / IN/ 
005005 124 105 122 -ASCII /TER/ 
005010 122 125 120 -ASCII /RUP/ 
005013 124 000 000 «ASCII /T/<00><00> 
005016 045 116 045 P.ACI: .ASCII /ssNe/ 
005021 101 044 106 -ASCII /ASF/ 
005024 124 114 105 -ASCII /TLE/ 
005027 122 122 os5 -ASCII /RR-/ 
005032 040 111 116 -ASCII / IN/ 
005035 103 117 116 -ASCII /CON/ 
005040 123 111 123 -ASCII /SIS/ 
005043 124 105 116 -ASCII /TEN/ 
005046 103 131 040 -ASCII /CY / 
005051 101 124 040 -ASCII /AT / 
005054 125 056 102 -ASCII /U.B/ 
005057 106 111 114 -ASCII /FIL/ 
005062 000 000 -ASCII <00><00> 
005064 045 116 045 P.ACJ: .ASCII /sNe/ 


005067 101 044 106 -ASCII /ASF/ 
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005072 124 114 105 ASCII /TLE/ 
005075 122 122 os5 ASCII /RR-/ 
005100 040 111 116 ASCII / IN/ 
005103 103 117 116 ASCII /CON/ 
005106 123 111 123 ASCII /SIS/ 
005111 124 105 116 ASCII /TEN/ 
005114 103 131 040 ASCII /CY / 
005117 101 124 040 -ASCII /AT / 
005122 125 056 102 -ASCII /U.B/ 
005125 115 124 131 -ASCII /MTY/ 
005130 000 000 -ASCII <00><00> 
005132 045 116 045 P.ACK: .ASCII /ssNs/ 
005135 101 044 106 -ASCII /ASF/ 
005140 124 114 105 -ASCII /TLE/ 
005143 122 122 os5 -ASCII /RR-/ 
005146 040 111 116 -ASCII / IN/ 
005151 103 117 116 -ASCII /CON/ 
005154 123 111 123 -ASCI1L /SIS/ 
005157 124 105 116 -ASCII /TEN/ 
005162 103 131 040 -ASCII /Cy / 
005165 101 124 040 -ASCII /AT / 
005170 125 056 101 -ASCII /U.A/ 
005173 114 117 103 -ASCII /LOC/ 
005176 000 000 -ASCII <00><00> 
045 116 045 P.ACL: .ASCII /sNS/ 

005203 101 044 106 -ASCII /ASF/ 
005206 124 114 105 ASCII /TLE/ 
005211 122 122 oss ASCII /RR-/ 
005214 040 111 116 -ASCII / IN/ 
005217 103 117 116 ASCII /CON/ 
005222 123 111 123 -ASCII /SIS/ 
005225 124 105 116 ASCII /TEN/ 
005230 103 131 040 -ASCII /CY / 
005233 101 124 040 ASCII /AT / 

36 12 105 122 ASCII /SER/ 
005241 1 117 040 ASCII /vO / 
005244 105 116 124 ASCII /ENT/ 
005247 122 131 040 -ASCII /Ry / 
005252 050 120 111 ASCII /(PI/ 
005255 120 040 123 ASCII /P S/* 
005260 105 124 051 ASCII /€T)/ 
005263 000 -ASCII <0O0O> 
005264 045 116 045 P.ACM: .ASCII /stNs/ 
005267 101 044 106 -ASCII /ASF/ 
005272 124 114 105 ASCII /TLE/ 
005275 122 122 055 ASCII /RR-/ 
005300 040 111 116 ASCII / IN/ 
005303 103 117 116 -ASCII /CON/ 
005306 123 111 123 -ASCII /SIS/ 
005311 124 105 116 ASCII /TEN/ 
005314 103 131 040 ASCII /CY / 
005317 101 124 040 ASCII /AT / 
005322 123 105 122 -ASCII /SER/ 
005325 126 117 040 ASCII /vVO / 
005330 105 116 124 -ASCII /ENT/ 
005333 122 131 040 ASCII /RY / 
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005341 122 040 123 -ASCII /R S/ 
005344 105 124 051 -ASCII /ET)Z 
005347 000 -ASCII <O00O> 
005350 045 116 045 P.ACN: .ASCII /sNS/ 
005353 101 044 1 -ASCII /ASF/ 
005356 124 114 105 -ASCII /TLE/ 
005361 122 122 055 -ASCII /RR-/ 
005364 040 111 116 -ASCII / IN/ 
005367 103 117 116 -ASCII /CON/ 
005372 123 111 123 eASCII /SIS/ 
005375 124 105 116 -ASCII /TEN/ 
005400 103 131 040 -ASCII /CY / 
005403 101 124 040 -ASCII AT / 
005406 125 056 123 -ASCII 7U.S/ 
005411 105 116 104 . II /END/ 
005414 000 000 -ASCII <00><00> 
005416 045 116 045 P.ACO: .ASCII /sNe/ 
005421 101 O84 106 -ASCIL /A8F/ 
005424 124 114 105 -ASCII /TLE/ 
005427 122 122 os5 .ASCII /RR-/ 
005432 040 111 116 ASCII / IN/ 
005435 103 117 116 -ASCII /CON/ 
005440 123 111 123 -ASCII /SIS/ 
005443 124 105 116 -ASCII /TEN/ 

103 131 040 eASCII /Cy # 
005451 101 124 040 -ASCII AT # 

54 125 056 122 -ASCII /U.R/ 

005457 105 103 126 -ASCII /ECV/ 
005462 000 000 -ASCII <00><00> 

045 116 045 P.ACP: .ASCII /sNe/ 
005467 101 044 106 -ASCII /ASF/ 
005472 124 114 105 -ASCII /TLEZ 
005475 122 122 055 -ASCII /RR-/ 
005500 040 111 116 . II- ¢ IN/ 
005503 103 117 116 eASCII /CON/ 
005506 123 111 123 ASCII /SIS/ 
005511 124 105 116 ASCII /TEN/ 
005514 103 131 040 -ASCII Cy / 
005517 101 124 040 ASCII AT / 
005522 125 056 101 eASCII /U.A/ 
005525 124 124 116 ASCII /TIN/ ., 
005530 000 000 -ASCII <00><00> 
005532 045 116 045 P.ACQ: .ASCII /Ne/ 
005535 101 044 106 -ASCII /ASF/ 
005540 124 114 105 eASCII /TLEZ 
005543 122 122 055 -ASCII /RR-/ 
005546 040 111 116 CII / IN/ 
005551 103 117 116 ASCII /CON/ 
005554 123 111 123 -ASCII /SIS/ 
005557 124 105 116 ASCII /TEN/ 

103 131 040 ASCII Cy # 
005565 101 124 040 ASCII /AT # 
005570 125 056 117 -ASCII /U.0/ 
005573 116 114 116 ott /NLN/ 

II 
II 


005600 045 116 045 P.ACR: ASC 


C7 


ZRCHBO ZRCHBO RC25 DISK FORMATTER 5-Apr-1984 13:19:09 VAX-11 Bliss-16 v3-555 = 36 
REV B PATCH 00 GLOBAL TEXT SECTION 5-Apr-1984 13:16:08 SPIDERSUSERS: [NEALE .AZTEC )ZRCHB2.816;5 (13) 
005606 124 114 105 ~ASCII /TLE/ 
005611 122 122 os5 ‘ II /RR-/ 
005614 040 111 114 -ASCII 7 It/ 
005617 114 105 107 -ASCII /LEG/ 
005622 101 114 640 eASCII /AL / 
005625 104 040 122 . I /0 27 
005630 105 121 125 -ASCII /€QU/ 
005633 105 123 124 e II /€ST/ 
005636 050 125 ‘ I 7¢/ (us 
005641 056 121 104 -ASCII 7.Q0/ 
005644 122 121 051 -ASCII /RQ)/ 
005647 ‘ II <00> 
005650 045 116 045 P.ACS: .ASCII /sNe/ 
005653 101 O44 106 »ASCII /ASF/ 
005656 124 114 105 I /TLEZ 
005661 122 122 055 -ASCII /RR-/ 
005664 040 106 105 ASCII / FE/ 
005667 116 103 105 -ASCIL /NCE/ 
005672 oss 120 117 . II /-P0/ 
005675 123 124 040 ASCII /ST / 
005700 105 122 122 -ASCII /ERR/ 
005703 117 122 040 ° II /sOR / 
005706 101 124 040 ~ASCII /AT / 
005711 120 122 117 -ASCII /PRO/ 
005714 124 101 102 -ASCII /TAB/ 
005717 000 -ASCII <00> 
005720 045 116 045 P.ACT: .ASCII /sNe/ 
005723 101 O44 106 -ASCII /ASF/ 
005726 124 114 105 * II /TLE/ 
005731 122 122 055 . II /RR-/ 
005734 102 101 -ASCII / BA/ 
005737 104 040 120 -ASCII /0 P/ 
005742 101 103 113 . II /ACK/ 
005745 105 124 040 ASCII /€T / 
005750 104 105 121 -ASCII /DEQ/ 
005753 125 105 125 ASCII /UEU/ 
005756 105 104 040 ASCII /€D / 
005761 101 124 040 eASCII /AT / 
005764 125 056 104 -ASCII /U.0/ 
005767 117 116 105 -ASCII /ONE/ 
005772 000 000 -ASCII <00><00> 
005774 045 116 045 P.ACU: .ASCII /sNS/ 
005777 101 044 106 -ASCII /ASF/ 
006002 124 114 105 -ASCII /TLE/ 
122 122 055 -ASCII /RR-7 
006010 040 125 116 -ASCII / UN/ 
006013 105 130 120 -ASCII /EXP/ 
006016 114 101 111 eASCII /LAI/ 
006021 116 105 104 eASCII /NED/ 
006024 040 104 055 ASCII / DO-/ 
006027 120 122 117 ASCII /PRO/ 
006032 103 040 123 -ASCIL /C S/ 
006035 125 123 120 -ASCII /USP/ 
006040 105 116 123 ~ASCII /ENS/ 
006043 111 117 116 -ASCII /ION/ 
006046 040 050 125 ASCII / (us 


006051 056 056 124 ‘ASCII /,.1/ 


D7 


ZRCHB2 ZRCHBO RC25 DISK FORMATTER 5-Apr-1984 13:19:09 VAX-11 Bliss-16 v3-555 -_ 
REV B PATCH 0O GLOBAL TEXT SECTION 5-Apr-19864 13:16:08 SPIDERSUSERS: [NEALE .AZTEC )ZRCHB2.816;5 (13) 
104 123 051 -ASCII /0S)/ 
006057 000 -ASCII <00> 
006060 045 116 045 P.ACV: ASCII /Ne/ 
006063 101 044 106 -ASCII /A8F/ 
006066 124 114 105 -ASCII /TLE/ 
006071 122 122 055 . II /RR-/ 
006074 040 104 125 -ASCII 7 Dus 
006077 120 040 120 -ASCII /P Ps 
006102 101 103 113 ASCII /ACK/ 
006105 105 124 040 -ASCII /ET / 
006110 104 oss 121 «ASCII /0-Q/ 
006113 040 106 101 ASCII / FA/ 
006116 111 114 105 -ASCII /ILE/ 
006121 104 040 050 -ASCII /0 (/ 
006124 130 106 103 ASCII /xFC/ 
006127 v40 063 -ASCII / 34/ 
006132 057 063 065 -ASCII <57>/35/ 
006135 0S1 000 000 -ASCIL /)7<00><00> 
006140 045 116 045 P.ACW: .ASCII /sNs/ 
006143 101 044 106 -ASCII /ASF/ 
006146 124 114 105 -ASCII /TLE/ 
006151 122 122 oss -ASCII /RR-7/ 
006154 040 111 116 -ASCII / IN/ 
006157 103 117 116 -ASCII /CON/ 
006162 123 111 123 ASCII /SIS/ 
006165 124 105 116 ASCII /TEN/ 
006170 103 131 040 «ASCII /CyY / 
006173 101 124 040 -ASCII /AT # 
006176 125 056 110 ° II /U,H/ 
006201 124 123 124 -ASCII /TST/ 
006204 000 000 ° I <00><00> 
045 116 045 P.ACX: .ASCII /aNs/ 
006211 101 044 106 -ASCII /A8F/ 
006214 124 114 105 II /TLE/ 
006217 122 122 oss -ASCII /RR-/ 
006222 040 111 116 -ASCII / IN/ 
103 117 116 -ASCII /CON/ 
006230 123 111 123 -ASCII /SIS/ 
006233 124 105 116 -ASCII /TEN/ 
006236 103 131 040 ASCII /Cy / 
906241 101 124 040 -ASCII /AT / 
006244 125 056 123 -ASCII /U.S/ 
006247 105 113 117 -ASCII /EKO/ 
006252 000 000 «ASCII <00><00> 
045 116 045 P.ACY: .ASCII /sNw/ 
006257 101 044 106 -ASCII /A8F/ 
124 114 105 . II /fLEZ 
006265 122 122 055 II /RR-/ 
006270 040 111 116 ASCII / IN/ 
006273 103 117 116 -ASCII /CON/ 
006276 123 111 123 . II /SIS/ 
006301 124 105 116 II /TEN/ 
006304 103 131 040 -ASCII /Cy # 
006307 101 124 040 -ASCII /AT / 
006312 125 056 103 -ASCII /U.C/ 
006315 113 123 126 . II /KSv/ 


af 


SEQ 0062 

ZRCHB2 ZRCHBO RC2S DISK FORMATTER 5-Apr-1984 13:19:09 VAX-11 Bliss-16 V3-555 Page 
REV 8 PATCH 00 GLOBAL TEXT SECTION S-Apr-1984 13:16:08 SPIDERSUSERS: [NEALE .AZTEC J)ZRCHB2. B16;5°¢ (13) 
006322 045 116 045 P.ACZ: .ASCII /sNe/ 
006325 101 044 106 «ASCII /ASF/ 
006330 124 114 105 ASCII /TLE/ 
006333 122 122 oss -ASCII /RR-/ 
006336 040 104 056 ASCII /0./ 
006341 117 120 103 ASCII /OPC/ 
006344 104 040 106 -ASCII /0 F/ 
006347 117 125 116 ASCII /OUN/ 

3 104 040 111 -ASCII /0 I/ 
006355 114 114 105 -ASCII /LLE/ 
006360 107 101 114 ASCII /GAL/ 
006363 040 117 120 -ASCII / OP/ 
006366 103 117 104 -ASCII /COO/ 
006371 105 000 000 -ASCII /€&/<00><00> 
006374 045 116 045 P.ADA: .ASCII /sNe/ 
006377 101 044 106 -ASCII /ASF/ 
006402 124 114 105 -ASCII /TLE/ 
006405 i22 122 oss -ASCI1 /RR-/ 
006410 040 104 056 . II /0./ 
006413 103 123 106 ASCII /CSF/ 
006416 040 106 117 ASCII / FO/ 
006421 125 116 104 ASCII /UNO/ 
006424 040 111 114 -ASCII / IL/ 
006427 114 105 107 -ASCII /LEG/ 
006432 101 114 040 -ASCII /AL / 
006435 117 120 103 -ASCII /OPC/ 
006440 117 104 105 -ASCII /ODE/ 
006443 000 -ASCII <00> 
006444 045 116 045 P.ADB: .ASCII /sNe/ 
006447 101 044 106 -ASCII /ASF/ 
006452 124 114 105 ASCII /TLE/ 
006455 122 122 oss ASCII /RR-/ 
006460 040 125 116 ASCII / UN/ 
006463 113 116 117 -ASCII /KNO/ 
006466 127 116 040 -ASCII /WN / 
006471 102 101 104 -ASCII /BAD/ 
006474 040 104 122 -ASCII / OR/ 
006477 111 126 105 -ASCII /IVE/ 
006502 040 123 124 ° II / ST/ 
006505 101 124 125 -ASCII /ATU/ 
006510 123 040 101 -ASCII /S A/ 
006513 124 040 104 ASCII /T DO/ 
006516 104 123 ASCII /.0S/ 
006521 124 123 000 [ASCII /1S/<00> 
006524 045 116 045 P.ADC: .ASCII /sNe/ 
006527 101 044 106 -ASCII /ASF/ 
006532 124 114 105 -ASCII /TLE/ 
006535 122 122 055 -ASCII /RR-/ 
006540 040 111 114 -ASCII / It/ 
006543 114 105 107 -ASCII /LEG/ 
006546 101 114 040 ASCII /AL / 
006551 130 106 103 ASCII /xFC/ 
006554 040 105 130 -ASCII / EX/ 
006557 105 103 125 «ASCII /ECU/ 
006562 124 105 104 SCII /TEO/ 
006565 040 102 131 “ASCII / BY/ 


006570 040 104 115 -ASCII 7 OM/ 


F7 


SEQ 0083 

ZRCHB2 ZRCHBO RC25 DISK FORMATTER 5-Apr-1984 13:19:09 VAX-11 Bliss-16 V3-555 Page 
REV 8 PATCH 00 GLOBAL TEXT SECTION 5-Apr-1984 13:16:08 SPIDERSUSERS : [NEALE .AZTEC JZRCHB2.B816;5 (13) 
006573 000 ASCII <00> 
006574 04S 116 045 P.ADD: .ASCII /ssNs/ 
006577 101 O44 106 II /ASF/ 
006602 124 114 105 ASCII /TLE/ 
006605 122 122 oss ASCII /RR-/ 
006610 040 104 040 ASCII /0D/ 
006613 120 111 103 -ASCII /PIC/ 
006616 113 105 104 -ASCII /KED/ 

040 125 120 ° II / UP/ 
006624 040 101 040 ASCII /A/ 
006627 132 105 122 -ASCII /ZER/ 
006632 117 040 123 ASCII /0 S/ 
006635 103 102 056 -ASCII /CB./ 
006640 104 102 000 ASCII /0B8/<00> 
006643 000 -ASCII <00> 
006644 045 116 045 P.ADE: .ASCII /ssNeS/ 
006647 101 044 106 -ASCII /ASF/ 
006652 124 114 105 ASCII /TLE/ 
006655 122 122 oss -ASCII /RR-/ 

040 111 116 -ASCII / IN/ 
0066635 103 117 116 «ASCII /CON/ 

123 111 123 -ASCII /SIS/ 
006671 124 105 116 -ASCII /TEN/ 
006674 103 131 04 -ASCII /CY / 
006677 101 124 040 -ASCII /AT / 
006702 104 040 111 -ASCII /0 I/ 
006705 104 114 105 -ASCII /DLE/ 
006710 040 114 117 -ASCII / LO/ 
006713 117 120 000 -ASCII /0P/<00> 
006716 045 116 045 P.ADF: .ASCII /ssNs/ 
006721 101 044 106 -ASCII /ASF/ 
006724 124 114 105 -ASCII /TLE/ 
006727 122 122 oss -ASCII /RR-/ 
006732 040 104 115 ASCII / OM/ 
006735 040 127 117 -ASCII / WO/ 
006740 122 104 040 -ASCII /RD / 
006743 103 117 125 II /COuU/ 
006 746 116 124 040 ASCII /NT / 
006751 105 122 122 -ASCII /ERR/ 
006754 117 122 040 -ASCII /OR / 
006757 117 116 040 -ASCII /ON / 
006 762 110 117 123 ASCII /HOS/ 
006765 124 040 104 -ASCII /T DO/ 
006770 115 101 057 -ASCII /MA/<5S7> 
006773 123 105 116 -ASCII /SEN/ 
006776 104 057 122 eASCII /0/<57>/R/ 
007001 105 103 126 ASCII /€CV/ 
007004 000 000 -ASCII <00><00> 
007006 045 116 045 P.ADG: .ASCII /stNs/ 
007011 101 044 106 -ASCII /ASF/ 
007014 124 114 105 ASCII /TLE/ 
007017 122 122 oss -ASCII /RR-/ 
007022 40 125 116 ASCII / UN/ 
007025 113 116 117 ASCII /KNO/ 
007030 127 116 040 ASCII /WN / 
007033 104 111 123 ASCII /DIS/ 


G/ 


SEQ —y 

ZRCHB2] ZRCHBO RC25 DISK FORMATTER S-Apr-1984 13:19:09 VAX-11 Blies-16 V3-555 40 
REV B PATCH 00 GLOBAL TEXT SECTION 5-Apr-1984 13:16:08 SPIDERSUSERS: [NEALE .AZTEC JZRCHB2. B16;5°C (13) 
007041 131 040 106 ASCII /Y F/ 
007044 101 125 114 ASCII /AUL/ 
007047 124 040 103 -ASCII /T C/ 
007052 117 104 105 -ASCII /0ODE/ 
007055 040 101 124 -ASCII / AT/ 
007060 040 104 056 -ASCII / 0./ 
007063 104 106 114 -ASCII /OFL/ 
007066 124 000 -ASCII /T/<00> 
007070 045 116 045 P.ADH: .ASCII /sNs/ 
007073 101 044 106 -ASCII /ASF/ 
007076 124 114 105 ASCII /TLE/ 
007101 122 122 os5s -ASCII /RR-/ 
007104 040 104 122 -ASCII / OR/ 
007107 111 126 105 ASCII /IVE/ 
007112 040 116 117 ASCII / NO/ 
007115 124 040 106 ASCII /T F/ 
007120 101 125 114 ASCII /AU/ 
007123 124 111 116 ASCI1L /TIN/ 
007126 107 040 111 -ASCII /G I/ 
007131 116 040 120 ASCII /N P/ 
007134 0S6 117 106 ASCII /.0F/ 
007137 114 116 040 -ASCII /UN / 
007142 ~ 123 124 101 -ASCII /STA/ 
007145 124 105 000 -ASCII /TE/<00> 
007150 045 116 045 P.ADI: .ASCII /ssNs/ 
007153 101 044 106 -ASCII /A$8F/ 
007156 124 114 105 ASCII /TLE/ 
007161 122 122 oss ASCII /RR-/ 
007164 040 125 040 -ASCII /U/ 
007167 120 117 127 ASCII /POW/ 
007172 105 122 040 ASCII /ER / 
007175 125 120 040 ASCII /UP / 
007200 104 111 101 -ASCII /OIA/ 
007203 107 116 117 ASCII /GNO/ 
007206 123 124 111 ASCII /STI/ 
007211 103 123 040 ASCII /CS / 
007214 106 101 111 ASCII /FAI/ 
007217 114 105 104 -ASCII /LED/ 
007222 000 000 ° II <00><00> 
007224 045 116 045 P.ADJ: .ASCII /sNs/ 
007227 101 044 106 -ASCII /ASF/ 
007232 124 114 105 ASCII /TLE/ 
007235 122 122 osS5 ASCII /RR-/ 
007240 040 104 040 ASCII /D/ 
007243 120 117 127 ASCII /POW/ 
007246 105 122 040 ASCII /ER / 
007251 125 120 040 ASCII /UP / 
007254 104 111 101 ASCII /DIA/ 
007257 107 116 117 ASCII /GNO/ 
007262 123 124 111 -ASCII /STI/ 
007265 103 123 ASCII /CS / 
007270 106 101 111 ASCII /FAI/ 
007273 114 105 104 -ASCII /LED/ 
007276 000 000 -ASCII <00><00> 
007300 045 116 045 P.ADK: .ASCII /sNe/ 
007303 101 044 106 ASCII /A$SF/ 


H7 


SEQ 0085 
ZRCHB2 ZRCHBO RC2S5 DISK FORMATTER 5-Apr-1984 13:19:09 VAX-11 Bliss-16 v3-555 Page 41 
REV B PATCH 00 GLOBAL TEXT SECTION 5-Apr-1984 13:16:08 SPIDERSUSERS: [NEALE. AZTEC JZRCHB2.816;5°C (13) 
007311 122 122 055 -ASCII /RR-/ 
007314 040 101 104 ASCII / AD/ 
007317 101 120 124 ASCII /APT/ 
007322 105 122 040 ASCII /ER / 
007325 103 101 122 ASCII /CAR/ 
007330 104 040 106 ASCII /D F/ 
007333 101 111 114 ASCII /AIL/ 
007336 125 122 105 -ASCII /URE/ 
007341 000 -ASCII <00> 
007342 045 116 045 P.ADL: .ASCII /ssNs/ 
007345 101 044 106 -ASCII /ASF/ 
007350 124 114 105 ASCII /TLE/ 
007353 122 122 oss ASCII /RR-/ 
007356 040 105 103 ASCII / EC/ 
007361 056 124 115 ASCII /.TM/ 
007364 122 040 124 ASCII /R T/ 
007367 111 115 105 -ASCII /IME/ 
007372 104 040 117 -ASCI1 /0 O/ 
007375 125 124 000 -ASCII /UT/<00> 
007400 045 116 045 P.ADM: .ASCII /stNs/ 
007403 101 044 106 ASCII /A$F/ 
007406 124 114 105 ASCII /TLE/ 
007411 122 122 0s5 -ASCII /RR-/ 
007414 040 125 056 -ASCII / U./ 
007417 123 105 116 -ASCII /SEN/ 
007422 104 057 125 -ASCII /0/<5S7>/uU/ 
007425 056 122 105 -ASCII /.RE/ 
007430 103 126 040 -ASCII /Cv / 
007433 122 111 116 -ASCII /RIN/ 
007436 107 040 122 -ASCII /G R/ 
007441 105 101 104 -ASCII /EAD/ 
007444 040 111 116 ASCII / IN/ 
007447 103 117 116 -ASCII /CON/ 
007452 123 111 123 ASCII /SIS/ 
007455 124 105 116 -ASCII /TEN/ 
007460 103 131 ASCII /CyY/<00> 
007463 000 -ASCII <00O> 
007464 045 116 045 P.ADN: .ASCII /sNS/ 
007467 101 044 106 ASCII /ASF/ 
007472 124 114 105 ASCII /TLE/ 
007475 122 122 055 ASCII /RR-/ 
007500 125 116 ASCII / UN/ 
007503 113 116 117 -ASCII /KNO/ 
007506 127 116 040 -ASCII /WN / 
007511 127 101 111 -ASCII /wAI/ 
007514 124 122 1 ASCII /TRV/ 
007517 040 122 105 ASCII / RE/ 
007522 101 123 117 -ASCII /ASO/ 
00 116 040 101 ASCII /N As 
007530 124 040 104 ASCII /T DO/ 
007533 056 122 126 -ASCII /.RV/ 
007536 103 124 000 ASCII /CT/<00> 
007541 000 -ASCII <00O> 
007542 045 116 045 P.ADO: .ASCII /sNS/ 
007545 101 044 106 -ASCII /ASF/ 
007550 124 114 105 -ASCII /TLE/ 


007553 122 122 oss -ASCII /RR-7 


17 


SEQ 0086 
ZRCHB2 ZRCHBO RC25 DISK FORMATTER S-Apr-1984 13:19:09 VAX-11 Bliss-16 v3-555 Page 42 
REV B PATCH OO GLOBAL TEXT SECTION 5-Apr-1984 13:16:08 SPIDER SUSERS: [NEALE .AZTEC J)ZRCHB2. B16;5°¢ (13) 
007556 040 104 056 -ASCII 7 D./ 
007561 101 122 103 -ASCII /ARC/ 
007564 123 040 104 -ASCII /S D/ 
007567 111 104 040 -ASCII /I0 / 
007572 116 117 124. -ASCII /NOT/ 
007575 040 106 111 -ASCII 7 FI/ 
007600 116 104 040 -ASCII /NO / 
007603 103 114 117 «ASCII /CLO/ 
007606 123 105 123 -ASCII /SES/ 
007611 124 040 125 -ASCII /T U/ 
007614 116 104 117 -ASCII /NDO/ 
007617 116 105 040 -ASCII /NE / 
007622 132 117 116 -ASCII /ZON/ 
007625 105 000 000 -ASCII /€7<00><00> 
007630 045 116 045 P.ADP: .ASCII /sNs/ 
007633 101 044 106 -ASCII /ASF/ 
007636 124 114 105 -ASCII /TLE/ 
007641 122 122 osS -ASCIL /RR-/ 
007644 040 125 0S6 -ASCII / U./ 
007647 123 105 105 -ASCII /SEE/ 
007652 113 040 106 -ASCII /K F/ 
007655 117 125 116 ASCII /OUN/ 
007660 104 040 123 ASCII /0 S/ 
007663 105 105 113 ASCII /EEK/ 
007666 040 124 117 ASCII / T0/ 
007671 040 111 114 ASCII / It/ 
007674 114 105 107 ASCII /LEG/ 
007677 101 114 040 -ASCII /AL / 
007702 124 122 101 -ASCII /TRA/ 
007705 103 113 000 -ASCII /CK/<00> 
007710 045 116 045 P.ADQ: .ASCII /sNe/ 
007713 101 044 106 -ASCII /A8F/ 
007716 124 114 105 ASCII /TLE/ 
007721 122 122 05S ASCII /RR-/ 
007724 125 056 ASCII / U./ 
007727 110 124 123 ASCII /HTS/ 
007732 124 040 111 ASCII /?T I/ 
007735 116 111 124 «ASCII /NIT/ 
007740 040 104 111 ASCII / DI/ 
007743 101 107 040 -ASCII /AG / 
007746 104 115 101 ASCII /DMA/ 
007751 040 127 122 ASCII / WR/ 
007754 111 124 105 ASCII /ITE/ 
007757 040 106 101 -ASCII / FAs 
007762 111 114 105 «ASCII /ILE/ 
007765 104 000 000 -ASCII /0/<00><00> 
007770 04s 116 045 P.ADR: .ASCII /@Ne/ 
007773 101 044 106 ASCII /A8F/ 
007776 124 114 105 ASCIT /TLE/ 
010001 122 122 osS ASCII /RR-7/ 
010004 040 125 056 ASCII /vU./ 
010007 110 124 123 ASCII /HTS/ 
010012 124 040 111 ASCII /T [7 
010015 116 111 124 ASCII /NIT/ 
010020 040 104 111 ASCII / DOI 
010023 101 107 ASCII /AG / 


J/ 


SEQ 0087 
ZRCHB2 ZRCHBO RC25 DISK FORMATTER 5-Apr-1984 13:19:09 VAX-11 Bliss-16 v3-555 Page 43 
REV 8 PATCH 0O GLOBAL TEXT SECTION 5-Apr-1984 13:16:08 SPIDERSUSERS: [NEALE .AZTEC J)ZRCHB2.B16;5 (13, 
010031 040 103 117 -ASCII / CO/ 
010034 115 120 101 «ASCII /MPA/ 
010037 122 105 040 -ASCII /RE / 
010042 106 101 111 «ASCII /FAI/ 
010045 114 105 104 -ASCII /LED/ 
010050 000 000 -ASCII <00><00> 
010052 045 116 045 P.ADS: .ASCII /sNe/ 
010055 101 044 106 -ASCII /ASF/ 
010060 124 114 105 -ASCII /TLE/ 
010063 122 122 oss -ASCII /RR-/ 
010066 040 125 056 -ASCII / U./ 
010071 123 131 104 -ASCII /SYO/ 
010074 122 040 106 -ASCII /R F/ 
010077 117 125 116 -ASCII /OUN/ 
010102 104 040 123 -ASCII /0 S/ 
010105 123 056 104 -ASCII /S,.0/ 
010110 105 122 040 -ASCII /ER / 
010113 123 105 124 -ASCIL /SET/ 
010116 040 101 116 -ASCII / AN/ 
010121 104 040 123 -ASCII /0 S/ 
010124 123 056 123 -ASCII /S.S/ 
010127 120 116 040 -ASCII /PN / 
010132 116 117 124 -ASCII /NOT/ 
010135 040 123 105 -ASCII / SE/ 
010140 124 000 -ASCII /T/<00> 
010142 045 116 045 P.ADT: .ASCII /sNe/ 
010145 101 044 106 «ASCII /ASF/ 
010150 124 114 105 -ASCII /TLE/ 
010153 122 122 oss -ASCII /RR-/ 
010156 040 115 101 -ASCII / MA/ 
010161 123 124 105 -ASCII /STE/ 
010164 122 040 104 -ASCII /R D/ 
010167 122 111 126 -ASCII /RIV/ 
010172 105 123 040 -ASCII /ES / 
010175 101 103 114 -ASCII /ACL/ 
010200 117 040 101 -ASCII /0 As 
010203 123 123 105 -ASCII /SSE/ 
010206 122 124 105 -ASCII /RTE/ 
010211 104 000 000 -ASCII /07<00><00> 
010214 004736' P.ACG: .WORD P.ACH 
010216 005016’ -WORD P.ACI 
010220 : -WORD P.ACJ 
010222 005152’ -WORD P.ACK 
010224 005200° «WORD P.ACL 
010226 005264’ -WORD P.ACM 
010230 005350 -WORD P.ACN 
010232 005416’ -WORD P.ACO 
010234 : -WORD P.ACP 
010236 005532’ -WORD P.ACQ 
010240 005600' -WORD P.ACR 
010242 005650’ -WORD P.ACS 
010244 005720 «WORD P.ACT 
010246 005774’ -WORD P.ACU 
010250 006060' -WORD P.ACV 
010252 006140° -WORD P.ACW 
010254 006206’ -WORD P.ACX 
010256 006254 «WORD P.ACY 


IK 7 


=S. ay 
ZRCHB2 ZRCHBO RC25 DISK FORMATTER S-Apr-1984 13:19:09 VAX-11 Bliss-16 V3-555 44 
REV 8 PATCH 00 GLOBAL TEXT SECTION 5-Apr -1984 13:16:08 SPIDERSUSERS : [NEALE . AZTEC JZRCHB2. g16,5°C (13) 


010260 006322’ 
010262 006374' 
010264 006444' 
010266 006524’ 
010270 006574° 
010272 006644’ 
010274 006716’ 
010276 007006’ 
010300 007070' 
010302 007150’ 
010304 007224’ 
010306 007300° 
010310 007342 
010312 007400’ 
010314 007464' 
010316 007542: 
010320 007630' 
010322 007710’ 
010324 007770' 
010326 010052’ 
010330 010142’ 


seezezeesessaseseseen 
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010332 045 101 040 P.ADV: .ASCII /#A / 
010335 123 125 103 -ASCII /SUC/ 
010340 103 105 123 -ASCII /CES/ 
010343 123 106 125 -ASCII /SFU/ 
010346 114 045 116 CII /ULsN/ 
010351 000 -ASCII <00> 
010352 045 101 111 P.ADW: .ASCII /s#AI/ 
010355 116 126 101 -ASCII /NVA/ 
010360 114 111 104 ASCII /LID/ 
010363 040 103 117 ASCII 7 CO/ 
010366 115 115 101 I / 
010371 116 104 045 ASCII /NOS/ 
010374 116 000 -ASCII /N/<00> 
010376 045 101 116 P.ADX: .ASCII /sAN/ 
010401 117 040 122 ASCII /0 R/ 
010404 105 107 111 ASCII /E€GI/ 
010407 117 116 040 ASCII /ON / 
010412 101 126 101 ASCII /AVA/ 
010415 111 114 101 ASCII /ILA/ 
010420 102 114 105 -ASCII /BLE/ 
010423 045 116 000 -ASCII /N/<00> 
010426 045 101 116 P.ADY: .ASCII /#AN/ 
010431 117 040 122 -ASCII /0 R/ 
010434 105 107 111 -ASCII /EGI/ 
010437 117 116 ASCII /ON / 
010442 123 125 111 ASCII /SUI/ 
010445 124 101 102 ASCII /TAB/ 
910450 114 105 045 -ASCII /LEs/ 
010453 116 000 000 -ASCII /N/<00><00> 
010456 045 101 120 P.ADZ: .ASCII /s#AP/ 
010461 122 117 107 -ASCII /ROG/ 
010464 122 101 115 -ASCII /RAM/ 
010467 040 116 117 -ASCII / NO/ 
010472 124 040 113 -ASCII /T K/ 
010475 116 117 127 «ASCII /NOW/ 


010500 116 045 116 -ASCII /NSNZ 


L/ 


SEQ oF 
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010503 000 -ASCII <00> 
010504 045 101 114 P.AEA: .ASCII /#AL/ 
010507 117 101 104 .ASCII /0OAD/ 
010512 040 106 101 .ASCII / FA/ 
010515 111 114 125 -ASCII /ILU/ 
010520 122 105 045 .ASCII /RES/ 
010523 116 000 000 -ASCII /N/<00><00> 
010526 045 101 123 P.AEB: .ASCII /#AS/ 
010531 124 101 116 -ASCII /TAN/ 
010534 104 101 114 -ASCII /DAL/ 
010537 117 116 105 -ASCII /ONE/ 
010542 045 116 000 -ASCII /#N/<00> 
010545 000 -ASCII <00> 
010546 010332’ P.ADU: .WORD P.ADV 
010550 010352’ .WORD P.ADW 
010552 010376' .WORD P.ADX 
010554 010426’ .WORD P.ADY 
010556 010456' -WORD P.ADZ 
010560 010504' .WORD P.AEA 
010562 010526' .WORD P.AEB 
010564 045 101 123 P.AED .ASCII /#AS/ 
010567 125 103 103 ASCII /uCC/ 
010572 105 123 123 ASCII /€SS/ 
010575 045 116 000 -ASCII /#N/<00> 
010600 045 101 111 P.AEE: ASCII /sAI/ 
010603 116 126 101 ASCII /NVA/ 
010606 114 111 104 ASCII /LIO/ 
010611 040 103 287 ASCII / CO/ 
010614 115 115 101 -ASCII /MMA/ 
010617 116 104 045 ASCII /NOs/ 
010622 116 000 -ASCII /N/<00> 
010624 045 101 103 P.AEF: .ASCII /#AC/ 
010627 117 115 115 -ASCII /OMM/ 
010632 101 116 104 s II /ANO/ 
010635 040 101 102 -ASCII / AB/ 
010640 117 122 124 -ASCII /ORT/ 
010643 105 104 045 ASCII /EDs/ 
010646 116 000 ASCII /N/<00> 
010650 045 101 125 P.AEG -ASCII /s#AU/ 
010653 116 111 124 ASCII /NIT/ 
010656 055 117 106 -ASCII /-OF/ 
010661 106 114 111 ASCII /FLI/ 
010664 116 105 045 -ASCII /NES/ 
010667 116 000 000 -ASCII /N/<00><00> 
010672 045 101 125 P.AEH: .ASCII /sAU/ 
010675 116 111 124 -ASCII /NIT/ 
010700 055 101 126 -ASCII /-AV/ 
010703 101 111 114 -ASCII /AIL/ 
010706 101 102 114 -ASCII /ABL/ 
010711 105 045 116 -ASCII /€sN/ 
010714 000 000 -ASCII <00><00> 
010716 045 101 115 P.AEI: .ASCII /sAM/ 
010721 105 104 111 -ASCII /€DI/ 
010724 101 040 106 -ASCII /A F/ 
010727 117 122 115 -ASCII /ORM/ 
010732 101 124 040 -ASCII /AT / 


010735 105 122 122 -ASCII /ERR/ 


M7 


SEQ 0090 
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010740 117 122 045 -ASCII /ORS/ 
010743 116 000 000 .ASCII /N/<00><00> 
010746 045 101 127 P.AEJ: .ASCII /sAW/ 
010751 122 111 124 .ASCII /RIT/ 
010754 105 040 120 .ASCII /E P/ 
010757 122 117 124 -ASCII /ROT/ 
010762 105 103 124 -ASCII /ECT/ 
010768 105 104 045 -ASCII /EDs/ 
010770 116 000 .ASCII /N/<00> 
010772 045 101 103 P.AEK: .ASCII /#AC/ 
010775 117 115 120 .ASCII /OMP/ 
011000 101 122 105 -ASCII /ARE/ 
011003 040 105 122 .ASCII / ER/ 
011006 122 117 122 -ASCII /ROR/ 
011011 045 116 000 -ASCII /#N/<00> 
011014 045 101 104 P.AEL: .ASCII /#AD/ 
011017 101 124 101 -ASCII /ATA/ 
011022 040 105 122 .ASCI1L / ER/ 
011025 122 117 122 -ASCII /ROR/ 
011030 045 116 000 -ASCII /#N/<00> 
011033 000 -ASCII <00> 
011034 045 101 110 P.AEM: .ASCII /sAH/ 
011037 117 123 124 -ASCII /OST/ 
011042 040 102 125 -ASCII / BU/ 
011045 106 106 105 -ASCII /FFE/ 
011050 122 040 101 -ASCII /R A/ 
011053 103 103 105 -ASCII /CCE/ 
011056 123 123 040 -ASCII /SS / 
011061 105 122 122 -ASCII /ERR/ 
011064 117 122 045 -ASCII /ORS/ 
011067 116 000 000 .ASCII /N/<00><00> 
011072 045 101 103 P.AEN: .ASCII /#AC/ 
011075 117 116 124 -ASCII /ONT/ 
011100 122 117 114 -ASCII /ROL/ 
011103 114 105 122 -ASCII /LER/ 
011106 040 105 122 -ASCII / ER/ 
011111 122 117 122 -ASCII /ROR/ 
011114 045 116 000 -ASCII /#N/<00> 
011117 000 -ASCII <00> 
011120 045 101 104 P.AEO: .ASCII /#AD/ 
011123 122 111 126 -ASCII /RIV/ 
011126 105 040 105 -ASCII /E E/ 
011131 122 122 117 -ASCII /RRO/ 
011134 122 045 116 -ASCII /RSN/ 
011137 000 -ASCII <00O> 
011140 045 101 115 P.AEP: .ASCII /sAM/ 
011143 105 123 123 -ASCII /ESS/ 
011146 101 107 105 - -ASCII /AGE/ 
011151 040 106 122 -ASCII / FR/ 
011154 117 115 040 -ASCII /0M / 
011157 101 116 040 -ASCII /AN / 
011162 111 116 124 -ASCII /INT/ 
011165 105 122 116 -ASCII /ERN/ 
011170 101 114 040 -ASCII /AL / 
011173 104 111 101 -ASCII /DIA/ 
011176 107 116 117 -ASCII /GNO/ 


011201 123 124 111 -ASCII /STI/ 


N7 


SEQ oe 
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011204 103 045 116 -ASCII /CsN/ 
011207 000 -ASCII <00> 
011210 010564’ P.AEC: .WORD P.AED 
011212 010600' .WORD P.AEE 
011214 010624: .WORD P.AEF 
011216 010650’ .WORDB P.AEG 
01r220 010672’ -WORD P.AEH 
011222 010716’ -WORD P.AEI 
011224 010746' -WORD P.AEU 
011226 010772’ -WORD P.AEK 
011230 011014' -WORD P.AEL 
011232 011034: -WORD P.AEM 
011234 011072’ -WORD P.AEN 
011236 011120° -WORD P.AEO 
@11240 011140' .WORD P.AEP 
011242 105 116 124 P.AEQ: .ASCII /ENT/ 
011245 105 122 040 -ASCII /ER / 
011250 104 101 124 ASCIL /DAT/ 
011253 105 040 074 ASCII /€ </ 
011256 115 115 oss ASCII /MM-/ 
011261 104 104 055 ASCII /0D-/ 
011264 131 131 131 ASCII /vYYY/ 
011267 131 076 040 -ASCII /Y> / 
011272 000 -ASCII <00><00> 
011274 045 « 116 045 P.AER -ASCII /ssNs/ 
011277 101 116 117 ASCII /ANO/ 
011302 040 101 104 ASCII / AD/ 
011305 104 111 124 -ASCII /DIT/ 
011310 111 117 116 ASCII /ION/ 
011313 101 114 040 ASCII /AL / 
011316 125 116 111 -ASCII /UNI/ 
011321 124 123 040 -ASCII /TS / 
011324 124 117 040 .ASCII /TO / 
011327 106 117 122 II /FOR/ 
011332 115 101 124 -ASCII /MAT/ 
011335 040 055 040 ASCII /-/ 
011340 101 102 117 ASCII /ABO/ 
011343 122 124 111 -ASCII /RTI/Z 
011346 116 107 000 : II /NG/<00> 
011351 000 -ASCII <0O0O> 
011352 045 116 045 P.AES: .ASCII /sNw/ 
011355 101 044 106 -ASCII /ASF/ 
011360 124 114 105 ASCII /TLE/ 
011363 122 122 055 -ASCII /RR-/ 
011366 040 111 116 -ASCII / IN/ 
011371 111 124 040 ASCII /IT / 
011374 103 117 104 ASCII /COD/ 
011377 105 040 122 ASCII /E R/ 
011402 105 055 105 - ASCII /€-E/ 
011405 116 124 105 ASCII /NTE/ 
011410 122 105 104 ASCII /RED/ 
011413 040 104 125 ASCII / Du/ e 
011416 105 040 124 Y .ASCII /€ T/ 
011421 117 040 120 ASCII /0 P/ 
011424 127 122 040 .ASCII /WR / 
011427 106 101 111 -ASCII /FAIZ 


011432 114 000 -ASCII /L/<00> 


B8 


SEQ 0092 
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011434 045 116 045 P.AET: .ASCII /sNe/ 
011437 101 044 106 -ASCII /ASF/ 
011442 124 114 105 -ASCII /TLE/ 
011445 122 122 05S -ASCII /RR-/ 
011450 040 101 102 -ASCII / AB/ 
011453 117 122 124 -ASCII /ORT/ 
011456 111 116 107 -ASCII /ING/ 
011461 040 110 117 «ASCII / HO/ 
011464 123 124 040 . II /STt / 
011467 101 116 104 -ASCII /AND/ 
011472 040 122 105 -ASCII / RE/ 
011475 115 117 124 . II /MOT/ 
011500 105 040 120 -ASCII /E P/ 
011503 122 117 107 -ASCTI /ROG/ 
011506 122 101 115 . I /RAM/ 
011511 123 000 000 -ASCII /S/<00><00> 
011514 045 116 045 P.AEU: .ASCII /sNs/ 
011517 101 044 106 -ASCIL /ASF/ 
011522 124 114 105 . II /TLE/ 
011525 122 122 oss -ASCII /RR-/ 
011530 040 111 114 ASCII / It/ 
011533 114 10S 107 -ASCII /LEG/ 
011536 101 114 040 -ASCII /AL / 
011541 116 125 115 -ASCII /NUM/ 
011544 102 105 122 -ASCII /BER/ 
011547 040 117 106 ° II / OF/ 
011552 040 125 116 -ASCII / UN/ 
011555 111 124 123 -ASCII /ITS/ 
011560 040 123 105 -ASCII / SE/ 
011563 114 105 103 -ASCII /LEC/ 
011566 124 105 104 -ASCII /TED/ 
011571 000 -ASCII <00> 
011572 045 116 045 P.AEV: .ASCII /sNe/ 
011575 101 044 106 -ASCII /ASF/ 
011600 124 114 105 -ASCII /TLE/Z 
011603 122 122 oss ASCII /RR-/ 
011606 040 114 111 -ASCII / LIZ 
011611 115 111 124 -ASCII /MIT/ 
011614 040 117 106 Il / OF/ 
011617 040 123 111 -ASCII 7 SI/ 
011622 130 124 105 -ASCII /XTE/ 
011625 105 116 040 -ASCII /EN / 
011630 125 116 111 II /UNI/ 
011633 124 123 040 ASCII /TS / 
011636 120 105 122 ASCII /PER/ 
011641 040 106 117 -ASCII / FO/ 
011644 122 115 101 ASCII /RMA/ 
011647 124 111 116 eASCII /TINZ 
011652 107 040 123 -ASCII /G S/ 
011655 105 123 123 -ASCII /ESS/ 
011660 111 117 116 -ASCII /ION/ 
011663 -ASCII «00> 
011664 045 116 045 P.AEW: .ASCII /sNe/ 
011667 101 044 106 ASCII /ASF/ 
011672 124 114 105 -ASCII /TLE/ 
011675 122 122 055 ASCII /RR-/ 


C8 
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011703 062 065 040 -ASCII 725 / 
011706 103 117 116 -ASCII /CON/ 
O11711 124 122 117 -ASCII /TRO/ 
011714 114 114 105 ~ASCII /LLEZ 
011717 122 040 111 -ASCII /R IZ 
011722 116 111 124 ° II /NIT/ 
011725 111 101 114 -ASCII /IAL/ 
011730 111 132 101 -ASCII /IZA/ 
011733 124 111 117 -ASCII /TIO/ 
011736 116 040 105 » II /N E/ 
011741 122 122 117 »ASCII /RRO/ 
011744 122 000 eASCII /R/<00> 
011746 045 116 045 P.AEX: .ASCII /sNes/ 
011751 101 044 106 -ASCII /A8F/ 
011754 124 114 105 -ASCII /TLE/ 
011757 122 122 oss -ASCII /RR-/ 
011762 120 122 -ASCII / PR/ 
011765 117 124 117 -ASCI1L /0TO/ 
011770 103 117 114 -ASCII /COL/ 
011773 040 126 111 II / vI/ 
011776 117 114 101 -ASCII /OLA/ 
012001 124 111 117 -ASCII /TIO/ 
012004 116 040 105 i II /N E/ 
012007 122 122 117 ‘ II /RRO/ 
012012 122 000 -ASCII /R/<00> 
012014 045 116 045 P.AEY: .ASCII /sNe/ 
012017 101 044 106 eASCII /ASF/ 
012022 124 114 105 eASCII /TLEZ 
012025 122 122 0s5 -ASCII /RR-/ 
012030 040 103 117 -ASCII 7 CO/ 
012033 115 115 125 . II sus 
012036 116 111 103 -ASCII /NIC/ 
012041 101 124 111 -ASCII /ATIZ 
012044 117 116 04 -ASCII /ON / 
012047 101 122 105 -ASCII /ARE/ 
012052 101 0 111 “ II sa Its 
012055 116 111 124 -ASCII /NIT/ 
012060 040 105 122 eASCII 7 ER/ 
012063 122 117 122 eASCII /ROR/ 
012066 000 eASCII <00><00> 
012070 045 116 045 P.AEZ: .ASCII /sNe/ 
012073 101 044 106 -ASCII /ASF/ 
012076 124 114 105 ASCII /TLE/ 
012101 122 122 055 eASCII /RR-/ 
012104 040 104 125 . II / Ous 
012107 120 040 123 ASCII /P S/ 
012112 105 122 126 ASCII /ERV/ 
012115 105 122 040 -ASCII /ER / 
012120 101 103 124 ASCII /ACT/ 
012123 111 126 105 ASCII /IVE/ 
012126 040 101 106 -ASCII 7 AF/ 
012131 124 105 122 ASCII /TER/ 
012134 040 111 116 eASCII / IN/ 
012137 111 124 111 eASCII /ITIZ 
012142 101 114 111 -ASCII /ALI/ 
012145 132 111 116 eASCII /ZIN/ 


012150 107 000 -ASCII /G/<00> 


D8 
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012152 045 116 045 P.AFA: ASCII /sN/ 
012155 101 044 106 ,ASCII /ASF/ 
012160 124 114 105 “ASCII /TLE/ 
012163 122 122 055 -ASCII /RR-/ 
012166 040 104 125 .ASCII 7 Dus 
012171 120 040 123 -ASCII /P S/ 
012174 105 122 126 .ASCII /ERV/ 
012177 105 122 040 .ASCII /ER / 
012202 111 116 101 .ASCII /INA/ 
012205 103 124 111 .ASCII /CTI/ 
012210 126 105 040 ,ASCII /VE / 
012213 101 106 124 ‘ASCII /AFT/ 
012216 105 122 040 -ASCII /ER / 
012221 105 130 137 .ASCII /EX_/ 
012224 123 125 120 .ASCII /SUP/ 
012227 137 120 122 “ASCII 7/_PR/ 
012232 117 107 040 -ASCII 70G / 
012235 103 117 115 -ASCI1 /COM/ 
012240 115 101 116 .ASCII /MAN/ 
012243 104 000 000 -ASCII /0/<00><00> 
012246 105 116 124 P.AFB: .ASCII /ENT/ 
012251 105 122 040 ,ASCII /ER / 
012254 106 103 124 .ASCII /FCT/ 
012257 040 106 111 ,ASCII / FI/ 
012262 114 105 040 -ASCII /LE / 
012265 116 101 115 -ASCII = /NAM/ 
012270 105 040 124 .ASCII /E T/ 
012273 117 040 122 .ASCII /0 R/ 
012276 105 123 124 -ASCII /EST/ 
012301 117 122 105 .ASCII /ORE/ 
012304 040 0 106 “ASCII 7 (F/ 
012307 111 114 105 .ASCII /ILE/ 
012312 116 101 115 .ASCII /NAM/ 
012315 105 056 105 “ASCII /E.E/ 
012320 130 124 051 “ASCII /XxT)/ 
012323 072 040 000 ,ASCII /: /<00> 
012326 122 103 062 P.AFC: ASCII /RC2/ 
012331 065 040 040 -ASCII /5 / 
012334 ill 120 040 <ASCII IP / 
012337 040 040 122 -ASCII / R/ 
012342 105 107 111 .ASCII /EGI/ 
012345 123 124 105 ASCII /STE/ 
012350 122 040 040 -ASCII sR / 
012353 040 101 104 .ASCII / AD/ 
012356 104 122 105 .ASCII /ORE/ 
012361 123 123 000 -ASCII /SS/<00> 
012364 122 103 062 P.AFD: ASCII /RC2/ 
012367 065 040 111 “ASCII #5 I/ 
012372 116 124 105 -ASCII = /NTE/ 
012375 122 122 125 ASCII /RRU/ 
012400 120 124 040 -ASCII /PT 7 
012403 126 105 103 “ASCII /VEC/ 
012406 124 117 122 -ASCII /TOR/ 
012411 040 101 104 -ASCII 7 AD/ 
012414 104 122 105 -ASCII /DRE/ 
012417 123 123 -ASCII /SS/<00> 


000 
012422 122 103 062 P.AFE: ASCII /RC2/ 
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012425 065 040 040 -ASCII /S / 
012430 040 040 102 -ASCII / B/ 
012433 125 123 040 -ASCII /US / 
012436 040 040 122 -ASCII / R/ 
012441 105 121 125 -ASCII /EQU/ 
012444 10S 123 124 -ASCII /EST/ 
012447 040 040 040 ASCII / 7 
012452 114 105 126 -ASCII /LEV/ 
012455 105 114 000 -ASCII /EL/<00> 
012460 125 116 111 P.AFF: .ASCII /UNI/ 
012463 124 049 040 -ASCII /T / 
012466 116 125 115 -ASCII /NUM/ 
012471 102 105 122 ASCII /BER/ 
012474 040 124 117 -ASCII / TO/ 
012477 040 102 122 ASCII / BR/ 
012502 111 116 107 -ASCII /ING/ 
012505 040 040 117 -ASCII / O/ 
012510 116 114 111 -ASCIL /NLI/ 
012513 116 105 -ASCII /NE/<00> 
012516 106 117 122 P.AFG: .ASCII /FOR/ 
012521 115 101 124 -ASCII /MAT/ 
012524 040 111 116 -ASCII / IN/ 
012527 040 125 116 -ASCII / UN/ 
012532 101 124 126 -ASCII /ATT/ 
012535 105 116 104 -ASCII /END/ 
012540 105 104 040 «ASCII /€D / 
012543 122 105 106 II /REF/ 
012546 117 122 115 -ASCII /ORM/ 
012551 101 124 040 -ASCII /AT / 
012554 115 117 104 -ASCII /m0D/ 
012557 105 000 000 -ASCII /€/<00><00> 
012562 045 116 045 P.AFH: .ASCII /sNw/ 
012565 101 os2 os2 -ASCII /Ase/ 
012570 oS2 0S2 oS2 -ASCII /eee/ 
012573 oS2 oS2 052 -ASCII /eee/ 
012576 oS2 oS2 oS2 -ASCII /eee/ 
012601 0S2 ose oS2 -ASCII /eee/ 
012604 0S2 oS2 ose -ASCII /eee/ 
012607 052 052 ose -ASCII /eee/ 
012612 os2 040 116 -ASCII /@ N/ 
012615 117 124 111 -ASCII /0OTI/ 
012620 103 105 040 -ASCII /CE / 
012623 oS2 052 o0s2 -ASCII /aee/ 
012626 052 oS2 0s2 -ASCII /eee/ 
012631 oS2 052 oS2 -ASCII /eee/ 
012634 oS2 oS2 052 -ASCII /eee/ 
012637 oS2 0S2 oS2 -ASCII /eee/ 
012642 052 oS2 os2 -ASCII /eee/ 
012645 0s2 ose 052 -ASCII /aee/ 
012650 000 000 -ASCII <00><00> 
012652 045 116 045 P.AFI: .ASCII /stNe/ 
012655 101 040 040 -ASCII /A / 
012660 040 040 040 -ASCII / / 
012663 117 120 105 -ASCII /OPE/ 
012666 122 101 124 -ASCII /RAT/ 
012671 117 122 040 -ASCII /OR / 


012674 115 125 123 -ASCII /MuUS/ 


F8 
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REV B PATCH 00 GLOBAL TEXT SECTION 5-Apr-1984 13:16:08 SPIDERSUSERS: [NEALE . AZTEC )ZRCHB2. B16;5°C (13) 
012677 124 040 102 .ASCII /T B/ 
012702 105 040 120 -ASCII /E P/ 
012705 122 105 123 .ASCII /RES/ 
012710 105 116 124 -ASCII /ENT/ 
012713 040 111 116 -ASCII / IN/ 
012716 040 101 124 .ASCII / AT/ 
012721 124 105 116 -ASCII /TEN/ 
012724 104 105 104 -ASCII /DED/ 
012727 040 115 117 .ASCII / MO/ 
012732 104 105 040 ASCII /DE / 
012735 000 -ASCII <00O> 
012736 045 116 045 P.AFJ:  .ASCII /ssNs/ 
012741 101 040 040 -ASCII /A / 
012744 040 040 040 -ASCII / / 
012747 040 040 122 ASCII / R/ 
012752 125 116 116 ASCII /UNN/ 
012755 111 116 107 .ASCII /ING/ 
012760 040 111 116 ASCIL / IN/ 
012763 040 125 116 -ASCII / UN/ 
012766 055 101 124 ASCII /-AT/ 
012771 124 105 116 ASCII /TEN/ 
012774 104 105 104 -ASCII /DED/ 
012777 040 122 105 -ASCII / RE/ 
013002 106 117 122 -ASCII /FOR/ 
013005 115 101 124 -ASCII /MAT/ 
013010 040 115 117 -ASCII 7 MO/ 
013013 104 105 000 -ASCII /DE/<00> 
000000 -PSECT $GLOB$, RO. OD , GBL 
000000 COM.AREA: : 

.BLKW 24 
000050 HEAD. ame : 
000052 RECEIVE. JAIN: : . 
000054 SEND. wae . 
000056 REC. ENVELOPE: 

BLK 200 
000456 SND. ENVELOPE: 

.-BLK 130 
000736 FCT. BUF: : 

.BLKW 400 
001736 REC.BUF:: 

.BLKW 170 
002316 SND . BUF ; 

BLK 45 
002430 OUTSSTD. BUF ss 

-BLK 10 
002450 RET. ENSAD: 

“BLK 
002452 DATETXT:: 

6 
002466 FLG.WRD:: 


-BLKW 


ZRCHB2 ZRCHBO RC25 DISK FORMATTER 
REV 6 PATCH 00 GLOBAL TEXT SECTION 
002470 NEX.FLAG:: 
.BLKW 
002472 OVSA:: .BLKW 
002474 NXT.CRN:: 
BLKB 
.EVEN 
002476 000000 RET.STATUS:: 
.~ WORD 
002500 LUN:: .BLK 
002502 PID.SAVE:: 
.BLK 
002506 NSD.SLOT:: - 
002510 NRD.SLOT:: 
.BLKW 
002512 RC25.ADDR: : 
002514 pene 
002516 BR.LEVEL:: 
BLK 
002520 UNIT.NO:: 
.BLK 
002522 PTBL.PTR:: 
-BLKW 
002524 003777 RSVD. STRUCT: 
“WORD 
002526 000000 “WORD 
042530 003400 . WORD 
C02532 003777 . WORD 
002534 007777 ISD. STRUCT 23 
; WORD 
002536 111033 » WORD 
002540 010222 . WORD 
002542 10’ .- WORD 
002544 023433 . WORD 
002546 . WORD 
002550 043777 WORD 
002552 177400 WORD 
.GLOBL 
-GLOBL 
>GLOBL 
000126' LSERRTBL== 
000154' L$SwW== 
000140' L $HW== 
000011’ L$DEPO== 
000140' OFPTBL== 
000154' SFPTBL== 
000000' FMi1== 
000006‘ FMT2== 
000076’ FMT3<= 
000204' FMT4=s= 


000270' FMTS== 


G8 


5-Apr-1984 13:19:09 
5-Apr-1984 13:16:08 


—- pe 


ye - ee FP SY FH KO 


LSSOFT, TSPTHV, LSRPT, LSINIT 
LSCLEAN, L$LAST, L$HARD, LSOVTYP 
L$DESC, L$DU, LSAU, L$AUTO, Tl 


ERRTYP 
LSSWLENe2 
LSHWLENe2 
LSREVel 
LSHWLEN+2 
LSSWLENe2 
P.AAA 
P.AAB 
P.AAC 
P.AAD 
P.AAE 


SEQ 0097 
VAX-11 Bliss-16 V3-555 Page 53 
SPIDERSUSERS: (NEALE . AZTEC JZRCHB2. B16;5° (13) 


oo oF Ge GF Gt Ge Ge 


000400: 
0004 76' 


File 


ZRCHB2 ZRCHBO RC25 DISK FORMATTER 
REV B PATCH 00 GLOBAL TEXT SECTION 


FMT6== 

FMT7== 
PID.FMT== 

CRLF «= 

XCRLF == 
RINGBASE == 
MSGADR== 

PFE .STRUCT== 
EMSG.STRUCT== 
RC. STRUCTURE == 
SOUP .STRUCT== 
SMSCP ..STRUCT== 


PROTO. VIOLATION== 


PORT. INIT .ERR== 


H8 


5-Apr-1984 13:19:09 
S-Apr-1984 13:16:08 


REC .BUF +2 


P.AEY 


ACTIVE .OUP.SERVER== P,AEZ 
INACTIVE .OUP.SERVER== 


SPIDERSUSERS: [NEALE . AZTEC ]ZRCHBO.L16;2 


P.AFA 
FCT. REQ.MSG== P.AFB 
HW.Q1.IP=«= P AFC 
HW.Q2. VECTOR== P.AFD 
HW.Q3.BR== P.AFE 
HW.Q4.UNIT*= P LAFF 
SW.Q1.UNATT=< P.AFG 
SW.Q2.NOTICE== P.AFH 
SW.Q3.0PER== P AFI 
SW.Q4.UNATT== PAF J 
PSECT SUMMARY 
Words Attributes 
59 RD. £ « teks 
694 RO. ODO ., GB, 
2823 » @ « Ge 
wtreteee Symbols -------- 
Totel Loaded Percent 
398 176 a4 


REL, 
REL, 
REL, 


CON 
CON 
CON 


Blocks 
Read 


42 


SEQ 0098 
VAX-11 Bliss-16 Vv3-555 Page 54 
SPIDERSUSERS: (NEALE. AZTEC JZRCHB2.816;5°¢ (13) 


ZRCHB2 ZRCHBO RC25 DISK FORMATTER 
REV B PATCH OO GLOBAL TEXT SECTION 


: COMMAND QUAL IF IERS 
; BLISS /PDPLI/LIST ZRCHB2.B16 


Size: 0 code + 3576 date words 
Run Time: 00:25.5 

Elapsed Time: 02:03.2 

Memory Used: 209 

Compilation Complete 


I8 


5-Apr-1984 13:19:09 
5-Apr-1984 13:16:08 


SEQ 0099 
VAX-11 Bliss-16 v3-555 Page 55 
SPIDER SUSERS : [NEALE .AZTEC JZRCHB2.816;5 (13) 


ZRCHBS 


J8 


ZRCHBO RC25 DISK FORMATTER S-Apr-1984 13:33:45 
5-Apr-19864 13:31:29 
MODULE ZRCHB3 (STITLE ‘ZRCHBO RC25 DISK FORMATTER' 
IDENT = ‘REV B PATCH OO’, 
ADDRESSING_MODE (RELATIVE) , 
ENVIRONMENT (NOEIS) 


)= 
BEGIN 
Sebttl ‘MODULE DECLARATIONS’ 


Pretty Declarations 
' <BLF /LOWERCASE _KEY> 
* 


SEQ 0100 
VAX-11 Bliss-16 v3-555 Page 1 
SPIDERSUSERS: [NEALE .AZTEC )ZRCHB3.816;5 (1) 


library ‘ZRCHBO'; !Define RC25 Library module 
require ‘BLSMAC.REQ'; !Define Bliss Macro Library 


te 
: Structure declarations used within this module. 


structure 


RC25 register accessing structure. This 
structure allows RC25 register accessing 
to be transportable between the PDP-11 and 
VAX Diagnostic Supervisors. 


This also defines an access algorithm for 
VAX to allow field reference to MBA address 
spece without generating machine checks. 


RCc25 (0, P, S, E) = 
begin 


locel 
RC$S_REG; 


RC$S_REG = .(RC25 + supvele0)<0, sbpvel, 0>; 
oe 


<P, S, E>; 
!<b1l Ff /page> 


K8 


0 
ZRCHBS ZRCHBO RC25 DISK FORMATTER S-Apr-1984 13:33:45 VAX-11 Bliss-16 V3-555 — 2 
REV B PATCH 00 MODULE DECLARATIONS 5S-Apr-1984 13:31:29 SPIDER SUSERS : [NEALE . AZTEC )ZRCHB3.816;5 (2) 


The psect named “code or %scode$” is redefinded here 
! to be called "“aatcode”. This is done to force the tkb 
linker to place the programs header information starting 
at absolute address . Then for consistency “atcode” 
teat : is used inplace of “code or $code” across all modules. 


1542 psect 
1543 code = aascode; 


1545 !. 
seat : External Routine declared outside this module. 


a 
® 


1549 external routine 
1550 DECODE : novalue, 
1551 LOAD _FILE; 


1553 !<blf/page> 


oe oe oe Ge Gs GF Gs GF GF Gs Gt Gs Ge Os Ge OF oe oF oF 
¥ 
& 


ZRCHB3 
REV B PATCH 00 


ZRCHBO RC25 DISK FORMATTER 
MODULE DECLARATIONS 


+ 


external 
DM load file from local media definitions 
'DM_FNSEXT, 
AZFMTR : vector (8989, word], 
OVSA $ word, 


! Hardware question ascii string messages 
S| 


: Init code error and informational messages 


NO_ADD_UNITS, 
PwR_MSG, 
ABO_MSG, 
TO_MANY _UNITS, 
GOOD _NUM_UNITS, 
DATMSG, 


Miscellaneous external data declarations 
FLG_WRD : bitvector [16], 


LUN : byte, 
: ref vector [4, word], 


DATETXT : vector [12, byte], 

: Supervisor defined data declarations 
LSUNIT, 

Hardware P_Table storage declarations 
RC25_ADDR : ref RC25 field (ISD_FIELD), 
VEC_ADDR : word, 


L8 


5-Apr-1984 13:33:45 
5-Apr-1984 13:31:29 


SEQ 0102 
VAX-11 Bliss-16 V3-555 Page 
SPIDER $USERS : [NEALE .AZTEC ]ZRCHB3. B16;5°¢ (3) 


External Declaration of datums declared outside of this module. 


10M file name ascii text 
10M host buffer adrs 
'Overlay section starting adrs 


tH/W question 1 for IP reg address 

tH/W question 2 for interrupt vector address 
'H/W question 3 for bus req level 

'H/W question 4 for unit no. to format 


!Unattended reformat software question 
!Notice message 

'Operator must be present in this mode 
tRunning in unattended mode 


tNotifies unit being formatted 
tNotifies format abort 
'<CR><LF> 

!Prints ten <CR><LF> 


!Message to ask operator for date 


!Global flag word 


'Storage for operator date input 


SEQ 0103 

ZRCHBS ZRCHBO RC25 DISK FORMATTER S-Apr-1984 13:33:45 VAX-11 Bliss-16 V3-555 Page 4 
REV B PATCH 00 MODULE DECLARATIONS 5-Apr-1984 13:31:29 SPIDERSUSERS: [NEALE .AZTEC ]ZRCHB3. B16;5 °C (3) 

1611 BR_LEVEL : word, 

1612 UNIT_NO : word, 


1613 ' 
1614 Software question response storage declarations 


1616 SW_UNATT : word, 
t 
1618 : Formatter data structures 


1620 ISD_STRUCT : blockvector (4, 2, word] field CISD_FIELD); 


ee ee of @+ Ge GF Gt Ge G+ Gt oF 
~ 
o 
~ 
vi 
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1631 DESCRIPT (sesciz'RC25 DISK FORMATTER’ ); 
1632 DEVTYP (sasciz‘'RC25 DISK DRIVE SUBSYSTEM’ ); 


SEQ 0104 
ZRCHBS ZRCHBO RC25 DISK FORMATTER S-Apr-1984 13:33:45 VAX-11 Bliss-16 v3-555 Page 5 
REV B PATCH 00 TYPE AND DESCRIPTION 5-Apr-1984 13:31:29 SPIDERSUSERS: [NEALE .AZTEC ]ZRCHB83.B816;5 (4) 
3 ‘ese ata ‘TYPE AND DESCRIPTION’ 
; > 
3 1624 ! Two lines of text will be printed to the operator (in addition to the 
3 1625 ! program name). The first will come from the "DESCRIPT” macro at start 
ry 1626 ! up time and will identify the diagnostics. The second will come from 
: 1627 ! the “DEVTYPE” macro at hardware dialogue time and will identify the 
3 1628 ! device under test. The arugments of both macros ere 72 character 
3 1629 ! ascii strings enclosed in parenthesises: 
’ 1630 !- 
3 
3 


ZRCHBS 
REV 8 PATCH 00 
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SEQ 0105 
ZRCHBO RC2S DISK FORMATTER S-Apr-1984 13:33:45 VAX-11 Bliess-16 v3-555 Pege 6 
HARDWARE PARAMETER CODING 5-Apr-1964 13:31:29 SPIDERSUSERS ; [NEALE . AZTEC )ZRCHB3.816;5 (5) 


Sebttl ‘HARDWARE PARAMETER CODING’ 
+ 


The hardware parameter coding section contains macros 
thet are used by the supervisor to build P-Tables. The 
macros ere not executed as machine instructions but ere 
interpreted by the supervisor es date structures. The 
mecros ellow the supervisor to establish communications 
with the operator. 


HW _Q1_IP, #o'0’', 0, #0'16000', #0'177777', YES, 1); !Get RC25 Controller IP register 
HW ECTOR, #o'2', 0, 4, #0'774', YES, 1); 'Get RC25 Interrupt Vector address 
HW_Q3_BR, to'4’, 0, #0'177777', O, 7, YES, 1); !Get RC25 Bus Request Priority 

HW UNIT, #0'6', D, #0'177777', 0, Sdecimeal'253', YES, 1); !Get unit number to format 


C9 


ZRCHBS ZRCHBO RC25 DISK FORMATTER 5-Apr-1984 13:33:45 VAX-11 Bliss- ey 555 any 7 
REV B PATCH 00 SOFTWARE PARAMETER CODING SECTION 5-Apr-1984 13:31:29 SPIDERSUSERS: NEALE AZTEC )ZRCHBS. B16;5°C (6) 


1648 Sebtti ‘SOFTWARE PARAMETER CODING SECTION’ 


: "The software paremeter coding section contains macros 
that are used by the supervisor to build P-Tables. The 
macros are not executed as machine instructions but ere 
interpreted by the supervisor es date structures. The 
macros allow the supervisor to esteblish communications 
! with the operator. 


BGNSFT 
1658 GPRML (SW. Q1_UNATT, 0, 1, YES, 1); 
1659 ENOSFT; 


~~ 
aS, 
Sa 

© se ce sere cee 
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ZRCHBS ZRCHBO RC25 DISK FORMATTER 5-Apr-1984 13:33:45 VAX-11 Blies-16 v3-555 a 
REV B PATCH 00 REPORT CODING SECTION 5-Apr-1984 13:31:29 SPIDERSUSERS: [NEALE .AZTEC JZRCHB3.816;5 (7) 
3 ret Sebttl ‘REPORT CODING SECTION’ 
3 $e 
3 1662 ! The statisticel report coding section contains the PRINTS macros that 
3 1663 ! will be used to generate statistical reports. The ‘'BGNRPT’ and ‘ENDRPT’ 
3 1664 ! macros are used as begining and ending directives for the coding con- 
3 1665 ! tained in the section. However, an externally located DORPT call, or 
Fy 1666 ! ae print command from the operator, may be used to request the execu- 
3 1667 ! tion of the report coding. 
3 1668 !- 
F 1669 BGNRPT; 
H 1670 return; 
3 1671 ! 
3 th | ! Report summary coding is remote program driven 
; 16 H 
3 1674 ENDRPT; 
-TITLE ZRCHBS ZRCHBO RC25 DISK FORMATTER 
-IDENT /REV B / 
000000 -PSECT AASCODE, RO 
000000 122 103 062 LSDESC::.ASCII /RC2/ 
000003 065 040 104 -ASCII /5 O/ 
000006 111 123 113 «ASCII /ISK/ 
000011 040 106 117 -ASCII / FO/ 
000014 122 115 101 -ASCII /RMA/ 
000017 124 124 105 eASCII /TTE/ 
000022 122 000 -ASCII /R/<00> 
000024 -BLKB 2 
000026 122 103 062 LSOVTYP:: 
-ASCII /RC2/ 
000031 065 040 104 -ASCII /5 D/ 
000034 111 123 113 -ASCII /ISK/ 
000037 040 104 122 II / OR/ 
000042 111 126 105 -ASCII /IVE/ 
000045 040 123 125 -ASCII 7 Sus 
000050 102 123 131 -ASCII /BSyY/ 
000053 123 124 105 eASCII /STE/ 
000056 115 “ II /4/<00> 
000060 -BLKB 2 
000062 000000C LSHROLN: : 
-WORD  <<<LSNDHRD-LSHRDOLN>/2>-1> 
000064 000031 GP$i:: .WORD 1 
000066 000000G -WORD HW.Q1.IP 
000070 016000 - WORD 16000 
000072 177777 WORD -1 
000074 001031 GPs2:: .WORD 1031 
000076 000000G -WORD HW.Q2.VECTOR 
000100 000004 . WORD 
000102 000774 . WORD 774 
000104 002032 GP$3:: .WORD 2032 
000106 000000G -WORD HW.Q3.8R 
000110 177777 WORD - 
000112 000000 «WORD O 
000114 000007 WORD 7 
000116 003052 GP$4:: .WORD 3052 


ZRCHBS 


REV 6 PATCH 00 REPORT CODING SECTION 


000000G 
000122 177777 


000000 
000126 000375 


000132 000000C 

000134 000130 
000000G 

000140 000001 


000064: 


000134’ 


000000 000207 


; Routine Size: 
; Maximum stack 


000000 004767 
000004 104425 
000006 000207 


3; Routine Size: 
; Maximum stack 


ZRCHBO RC2S DISK FORMATTER 


1 word, 


177772 


4 words, 


LSNOHRD: : 
LSSFTLN:: 
GP$S:: 


LSNDSFT:: 


LSHARD== 
L$SOFT== 


. SBTTL 
LRPT;: RTS 


Routine Base: AASCODE 
depth per invocation: 


O words 


- SBTTL 
LSRPT:: JSR 

TRAP 

RTS 


Routine Base: AASCODE 
depth per invocation: 


2 words 
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SEQ 0108 
Page 


9 
5-Apr-1964 13:31:29 SPIDERSUSERS: [NEALE . AZTEC JZRCHB3. B16;5°¢ (7) 


ws 


375 

1 

<<<L $NDSFT-LSSFTLN>/2>-1> 
Si. G1.UNATT 


DECODE, LOAD.FILE, AZFMTR, OVSA 
HW.Q1.IP, HW.G@2.VECTOR, HW.Q3.68R 
HW.Q4.UNIT, SW.Q1.UNATT, SW.Q2.NOTICE 
SW.Q3.O0PER, SW.Q4.UNATT, FMT2 

FMT3, CRLF, XCRLF, NO.ADD.UNITS 


GOOD. 

LUN, PTBL.PTR, “DATETXT, LSUNIT 
RC25.ADOR, VEC.ADDR, BR.LEVEL 
UNIT.NO, SW.UNATT, Is0. STRUCT 


LSHROLN+2 
LSSFTLNe¢2 


— REPORT CODING SECTION 


+ 0144 


LSRPT REPORT CODING SECTION 
ani 3 
2 


PC 
+ 0146 


1659 


1670 


ry 


SEQ 0109 
ZRCHBS ZRCHBO RC25 DISK FORMATTER S-Apr-1984 13:33:45 VAX-11 Bliss-16 V3-555 Page 10 
REV B PATCH 00 INITIALIZE SECTION 5-Apr-1984 13:31:29 SPIDERSUSERS: [NEALE .AZTEC )ZRCHB3.816;5 (8) 
3 1675 ssbttl ‘INITIALIZE SECTION’ 
3 1676 ®BGNINIT; 
3 1677 
3 1678 f+ 
3 1679 ! The initialization code is executed at the beginning of every 
F 16680 ! sub-pass and is primarily used for requesting P_Tables. Any 
: er : other set-up type functions may also be performed in the init 
: tec ° 
3 1683 ! 
; 1684 ! The initialize code is executed under five conditions. There 
3 1685 ! are supervisor event flags that ere used to let the diagnostic 
Fy 1686 ! know under which condition the execution is taking place. The 
3 ptt : event flags are read using the “READEF” macro. 
H 1689 ! The conditions under which the init code is executed and the 
3 tte : corrresponding event flags are: 
; oe 
: 1692 ! START COMMAND EF .START 
3 1693 ! RESTART COMMAND EF .RESTART 
3 1694 ! CONTINUE COMMAND EF .CONTINUE 
3 1695 ! POWERDOWN/POWERUP EF .PWR 
3 1696 ! NEW PASS EF .NEW 
3 1697 ! 
; 1698 ! Example of event flag use: 
3 1699 ! 
; 1700 ! if READEFCEF .START) then 
8 1701 ! START_FLAG = 1; 
H 1702 ~!-- 
3 1703 
é 1704 !-+ 
; 1705 ! First read the event flag EF_PWR to see if this init code is being 
H 1706 ! performed due to e system power fail. If it is then report the 
: 1707 ! incident to the operator and abort the DM machine and further execution 
H 1708 ! of this program. 
3 1709 !- 
; 1710 
H 1711 if READEF (EF _PwR) !Is the PWR event flag set 
: 1712 then 
; 1713 eagle tReport the incident and abort 
3 1714 PRINTB (PWR_MSG); !Power fail print message 
3 1715 PRINTB (CABO_MSG); '!Aborting program message 
: 1716 WRT_RC25 (RCIP, ONES); !Abort DM code execution 
H 1717 DOCLN; !Abort further program execution 
F 1718 end; 
3 1719 
F 1720 3 
H 1721 ! See if the ORS commands START or RESTART were used to start 
H 1722 ! this formatting session. If either of them were used then 
H tay : start the formatting session at logical unit zero. 
H H 
H 1725 
; 1726 if CREADEF CEF_START)) or (READEF (EF_RESTART)) !Did start of restart get us here 
; 1727 then 
; 1728 begin 
; 1729 H 
8 1730 ! Check the operator for triing to format 
; 


1731 ! more than the defined Limit. If they 


G9 


Get the P_Table paremeters for this unit and go format it. 


SEQ 0110 
ZRCHBS ZRCHBO RC25 DISK FORMATTER 5-Apr-1984 13:33:45 VAX-11 Bliss-16 Vv3-555 Page i11 
REV B PATCH OO INITIALIZE SECTION 5-Apr-1984 13:31:29 SPIDERSUSERS: [NEALE .AZTEC )ZRCHB3. 816;5°C (8) 
3 1732 ! are then report the error and die 
3 1733 : 
: 1734 
: 1735 if .LSUNIT gtru LSLIMIT !Is the formatting limit exceeded 
3 1736 then 
3 1737 poy Ma 
: 1738 PRINTB (TO_MANY_UNITS); !Report the error 
3 1739 PRINTB (GOOD_NUM_UNITS); !Tell him/her the Limit 
3 1740 DOCLN; !Go to cleanup and die 
Fy 1741 end; 
Fy 1742 
Fy 1743 H 
3 1744 ! Test to see if this host code is to run in UNATTENDED REFORMT MODE. 
; 1745 ! If it is then ask the operator for the date. If not then tell the 
H ape? : operator that an operator must be present during this formatting. 
3 : 
Fy 1748 
3 1749 if .SW_UNATT 
: i7at era 
3 in 
3 1752 : 
3 ives : Clear out the date text buffer before loading in date. 
8 ! 
: 1755 
H 1756 incr i from O 11 do 
F pea DATETXT [. 3 = ZEROS; 
3 
Fy 1759 GMANID (DATMSG, DATETXT, A, #0'177777', 8, 10, NO); 'Get date from operator 
8 1760 PRINTB (SW_Q2 “NOTICE ); Print notice acponge 
F 1761 PRINTB (SW_Q4_UNATT); !Report running in ATTENDED mode 
3 1762 end 
Fy 1763 else 
8 1764 
3 1765 Paints (SW_Q2_NOTICE); !Print notice message 
3 1766 PRINTB (SW_Q3_OPER); !Tell operator he/she must be present 
Fy 1767 end; 
3 1768 
Fy 1769 ts 
8 1770 ! Everything looks good so far, move on and get the 
FY ior. a hardware question responses and save them. 
H 1773 
H tee LUN = -1; !Stert formatting at logical unit 0 
8 
8 1776 do 
; 1777 begin 
3 78 LUN = .LUN « 1; !Up pointer to next logical unit to GPHARD 
P} 
8 ree if .LUN gequ .LSUNIT then DOCLN; tEnd host code if no logical units 
8 
Fy 1782 end : 
3 ies until (GPHARD (.LUN, PTBL_PTR)) nequ ZERO; !Repeat GPHARD'’s until P_Table adrs returned 
8 
Fy 1785 
8 
Fy 


t 
‘ 
‘ 
1788 RC25 _ADDR = .PTBL_PTR [wrd0); tLoad up the controllers base addres 
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8, toy 
ZRCHBS ZRCHBO RC25 DISK FORMATTER 5-Apr-19864 13:33:45 VAX-11 Bliss-16 v3-555 12 
REV 8 PATCH OO INITIALIZE SECTION 5-Apr-1984 13:31:29 SPIDERSUSERS: [NEALE .AZTEC J)ZRCHB3. B16;s"t (8) 
: 1789 VEC_ADOR = .PTBL_PTR [wrdl); Load up the controllers vector address 
3 17390 ISD_STRUCT {BLKO, WRD1, SiW_VADR) = .VEC _ADORZS, V2. te) 
3 1791 BR_LEVEL = .PTBL_PTR [wrd2); tLoad up the controllers bus request 
; te UNIT_NO = .PTBL_PTR (wrd3]; tLoaed up the unit number to format 
3 
3 1794 
3 1795 ' F eefere leaving the init code section we must first do some house keeping 
: 1796 ' left behind from the ISD_STRUCT preset declaration. The adapter purge interrupt 
3 ies ! bit must be defined for the type machine this formatter is running under. 
H :- 
3 1799 
3 1800 if @bliss (blissi16) !Define compiler 
3 1801 then 
3 yet . ISO_STRUCT [B8LK1, WRD1, S2W_PI) = ZERO !No purging for POP-11 
3 else 
3 roe ISO_STRUCT [BLK1, WRD1, S2W_PI}) = ONE; !Purging for VAX-11 
$ 
8 1806 e+ 
3 1807 ! This commented code will load an external copy of the formatter from 
3 poe : the locel load media into azkel6 module space starting at AZFMTR : VECTOR [ word) 
. 
ry 1810 ! fe 
8 1611 ! ! Now load in the RC25 formatter DM code from the local boot device 
3 1812 ! ! into the blenk buffer allocated in azkel6. Report load error if 
FY tH : : en error code is returned. 
8 : : 
F 18615 !: ! Tre DM code will only be read in during start! or restarts of the 
Fy ty : : host code. Block zero of the the OM .sav file will thrown out. 
: 18168 $+ 
3 thd : if LOAD_FILE (AZFMTR, OM_FNSEXT, DM_SIZE) then DECODE (); 
3 : 
3 18621 !-- 
Fy 1822 
8 1823 H 
3 1824 ! Now calculate the over lay sections starting address and store the result 
; aoe : in global location ‘OVSA’ for future reference. 
: . 
; 1627 : This tekes the OM buffer starting adrs and adds to it tne number of bytes 
3 1628 ! in the Cinitiel load + remote program header size) resulting in the first 
8 _— : edrs of the overlay section. 
; 1831 OVSA = AZFMTR » (.AZFMTR [WRDO)); !Calculate overlay start adrs 
8 1832 end 
3 tt) else . 
3 a 
3 1835 _~ 
3 1836 ! Tre continue fleg set will cause the current units formatting to be 
Fy aeee : aborted. The next sequential logicel unit will then be formatted. 
3 
8 1839 
8 1840 if READEF (EF _CONTINUE ) 
3 3 then : 
3 begin 
F] 1843 H 
3 13844 ! End this Host code if this .lun is the the Last logical unit to format. 
3 


1845 ! Else do another GPHARD macro to get the next logical unit to format. 


19 


SEQ 0112 

ZRCHBS ZRCHBO RC25 DISK FORMATTER 5-Apr-1964 13:33:45 VAX-11 Bliss-16 v3-555 Page 13 
REV B PATCH 00 INITIALIZE SECTION 5-Apr-1984 13:31:29 SPIDERSUSERS: [NEALE . AZTEC )ZRCHB3.816;5 (8) 
3 1846 H 
ry 1847 PRINTB (FMTS, .LUN, .UNIT_NO); !Report this luns format was eborted 
8 eee WRT_RC2S (RCIP, ONES); {Abort this current units formatting 
’ 
: 1850 if (.LUN ¢ 1) gequ .LSUNIT 
ry 1851 then 
3 1852 panic 
Fy 1853 PRINTB (NO_ADD_UNITS); !Report no more unit to format 
3 1854 DOCLN; 
3 1855 end; 
3 1856 
3 1857 end; 
3 18658 
Fy 1859 H 
3 1860 ! The new pess event fleg set means that ell logicel units have 
3 coed ! been formatted. Therefore end this host code and return to DS>. 
3 8 
3 1863 
: fer if READEF (EF _NEW) then DOCLN; !New pass means all units formatted 
3 
3 1866 8 
3 1867 ' Repeat ey a nteg until @ non-zero value is returned or all logicel units 
3 sees : have been ‘ed. End this host code if all logicel units neve been formatted. 
3 : 
3 1870 
3 1871 do 
3 1872 ror 
; thy L = .LUN + 1; !Up pointer to next logicel unit 
3 
Fy thy if .LUN gequ .LSUNIT then DOCLN; tEnd the host if all logical units GPHARD' ed 
3 
3 1877 end 
3 sy until (GPHARD (.LUN, PTBL_PTR)) nequ ZERO; !Repeat until e P_table adrs is returned 
: 1880 : 
; poe : Get the P_Table peremeters for this unit and go format it. 
3 . 
3 1883 RC25_ADDR = .PTBL_PTR [wrdd); tLoad up the controllers base addres 
; 1684 VEC_ADOR = .PTBL_PTR (wrdi); Load up the controllers vector address 
3 1885 ISO_STRUCT (BLKO, WRD1, SiW_VADR) = .VEC_ADDR/4; 'v2.0 
3 1886 BR_LEVEL = .PTBL_PTR [(wrd2]; tLoad up the controllers bus request 
; 1887 UNIT_NO = .PTBL_PTR [wrd3); Load up the unit number to format 
3 1888 end; 
3 1889 
8 1890 3: 
8 pt : Tell the operetor which RC25 controller is being initialized this pass. 
3 H 
; 1893 PRINTB (XCRLF); !Space between each formatting pass 
3 1894 PRINTB (FMT2, .PTBL_PTR ([WRDO)); 
8 1895 ENDINIT; 

-SBTTL CLINIT INITIALIZE SECTION 
000000 004167 000000G LINIT: JSR R1, $SAVE2 3 1074 
000004 012700 000034 MOV @34,RO 3 a7 hi 


000010 104447 TRAP 47 
000012 103023 BHIS 1s 


ZRCHBS 
REV B PATCH 00 


012746 
012746 


ZRCHBO RC25 DISK FORMATTER 
INITIALIZE SECTION 


177777 
000000G 


000006 
000040 18: 


000037 
000000G 000020 2s: 
000001 


000000G 
000001 


000000G 4$: 
000013 


000000G S$: 
000001 


JI 


5-Apr-1984 13:33:45 
5-Apr-1984 13:31:29 


OPWR MSG, -C SP) 
#1, -C(SP) 

SP ,RO 

14 


@ABO.MSG, (SP) 
@1,-(SP) 
SP,RO 

a 

@-1,R0 
RO,@RC25. ADDR 
4a 

#6,SP 

#40,RO0 

47 


es 

@37,RO0 

47 

98 

LSUNIT, #20 
3% 


@TO.MANY .UNITS, -(SP) 
#1, -(SP) 

SP,RO 

14a 

@GO0D .NUM. UNITS, (SP) 
#1,-(SP) 


4a 

@6,SP 
@1,SW.UNATT 
S$ 

RO 
DATETXTCRO) 
RO 

RO,@13 

43 


1 
@SW.Q2.NOTICE, -( SP) 
#1, -(SP) 

SP RO 

la 


@SW.Q4.UNATT, (SP) 
1, -(SP) 

SP,RO 

14 


6$ 
@SW.Q2.NOTICE, -(SP) 
@1,-(SP) 

SP ,RO 


VAX-11 Bliss-16 v3-555 
SPIDERSUSERS : [NEALE . AZTEC )ZRCHB3.B816; 


SP, 


SP ,* 


#,RC$M.REG 
RC$M.REG,« 


SP, 


SP ,¢ 


I 
e(I) 
I 
I,¢ 


SP, 


SP ,* 


SEQ.O113 
age 
(8) 


1714 


1715 


1716 


1713 
1726 


1735 
1738 


1739 


1737 
1749 


1756 
1757 
1756 


1759 


1760 


1761 


1749 
1765 


ZRCHBS 
REV B PATCH 00 


ZRCHBO RC25 DISK FORMATTER 
INITIALIZE SECTION 


8$: 


000036 93: 


177777 
000000G 


000000G 
000000G 


000000G 
000001 


IK9 


5-Apr-1984 13:33:45 
5-Apr-1984 13:31:29 


14 
@SW.Q3.OPER,(SP) 
= -(SP) 


LUN,RO 
RO,LSUNIT 
8$ 


44 

RO 

LUN,RO 

42 
RO,PTBL.PTR 
7$ 


RO,R1 

(R1),RC25.AD0R 
2(R1), VEC. ADDR 
VEC .ADOR, (SP) 


#177, ISO.STRUCT+2 
R2,ISD.STRUCT+2 
4(R1),BR.LEVEL 
6(R1),UNIT.NO 
#1,I1SO0.STRUCT+6 
AZFMTR,OVSA 
@AZFMTR,OVSA 

| A cal alla 


1 

#36,RO0 

47 

11$ 

UNIT.NO, -CSP) 
-(SP) 

LUN, (SP) 
oFMT3, -(SP) 
@3, -(SP) 

SP ,RO 

iA 

#-1,RO 
RO,@RC25. ADDR 
RO 

LUN,RO 

RO 

RO,LSUNIT 

10$ 
@NO.ADD.UNITS, (SP) 
#1,-CSP) 

SP ,RO 

14 


Aa 
(SP )+ 


VAX-11 Bliss-16 V3-555 


SEQ 0114 
P 


1 
SPIDER $SUSERS : [NEALE .AZTEC ]ZRCHB3.B16;5 (8) 


SP,* 


PTBL.PTR,* 


SP,« 


*#,RC$M.REG 
RCSM.REG,«# 


SP,* 


1766 


1774 
1778 
1780 


1783 


1848 
1850 


1853 


1852 


ZRCHBS 
REV B PATCH 00 


; Routine Size: 
; Maximum stack 


outine Size: 
»ximum stack 


ZRCHBO RC25 DISK FORMATTER 
INITIALIZE SECTION 


000010 108; ADD #10,SP 
000035 11$: MOV #35,RO0 

TRAP 47 

BHIS 12$ 

TRAP 44 
000000G 12$: INCB LUN 

CLR RO 
000000G BISB LUN,RO 
000000G CMP RO,LSUNIT 

BLO 13$ 

TRAP 44 

13$: CLR RO 

000000G BISB LUN,RO 

TRAP 42 
000000G MOV RO,PTBL.PTR 

BEQ 12$ 

MOV RO,R1 
000000G MOV (R1),RC25.AD0R 
000002 000000G MOV 2(R1),VEC.ADOR 
000000G MOV VEC .ADOR, -( SP) 
000004 MOV @4,-C(SP) 
000000G JSR PC ,BLSOLV 

MOV RO, R2 
177600 BIC #177600 ,R2 
000177 000002G BICB #177, ISD0.STRUCT+2 
000002G BIS R2,ISD.STRUCT+2 
000004 000000G MOV 4(R1),BR.LEVEL 
000006 000000G MOV 6(R1),UNIT.NO 
000000G 148: MOV @XCRLF ,(SP) 
000001 MOV #1,-CSP) 

MOV SP ,RO 

TRAP 14 
000000G MOV OPTBL.PTR,(CSP) 
000000G MOV OFMT2, - P) 
000002 MOV @2,- (SP) 

MOV SP RO 

TRAP 14 
000012 ADD #12,SP 

RTS PC 
252 words, Routine Base: AASCODE + 0156 


depth per invocation: 10 words 


LOY 


S-Apr-1984 13:33:45 
5-Apr-1984 13:31:29 


‘ . SBTTL 
177004 ~ LSINIT: : JSR PC,L 
= TRAP 11 
RTS PC 
4 words, Routine Base: AASCODE + 1146 


depth per invocation: 2 words 


wy siamese SECTION 


VAX-11 Bliss-16 V3-555 


SEQ 0115 
Page 


SPIDER$SUSERS : [NEALE .AZTEC JZRCHB3. B16;5°¢ (8) 


PTBL.PTR,«* 


SP,* 


SP ,* 


1842 
1864 


1873 
1875 


1878 


1883 


1884 
1885 


1886 
1887 . 
1893 


1894 


1674 | 


1894 


ZRCHBS 
REV B PATCH 00 


nich 


000000 000207 


3; Routine Size: 
: Maximum stack 


000000 004767 
000004 104461 
000006 000207 


; Routine Size: 
; Maximum stack 


M9 


S-Apr-1984 13:33:45 
5-Apr-1984 13:31:29 


ZRCHBO RC2S DISK FORMATTER 
AUTODROP SECTION 


Seuees *AUTODROP SECTION’ 


5 This code is executed immediately after the ‘nitialize code if 
! the “ADR” flag was set. The unit(s) under test are checked to 
! see if they will respond. Those that don't are immediately 
: dropped from testing. 
BGNAUTO; 
return; 
ENDAUTO; 
-SBTTL LAUTO AUTODROP SECTION 
LAUTO: RTS PC 
1 word, Routine Base: AASCODE + 1156 
depth per invocation: O words 
-SBTTL LS$AUTO AUTODROP SECTION 
177772 L$AUTO: : JSR PC,LAUTO 
TRAP 61 
RTS PC 
4 words, Routine Base: AASCODE + 1160 


depth per invocation: 2 words 


seq, (9) 
VAX-11 Bliss-16 V3-555 yg 
SPIDERSUSERS: [NEALE .AZTEC ]ZRCHB3. 816;5°¢ (9) 


H 1895 


ZRCHBS 
REV B PATCH 00 


000000 032767 
000006 


004 
000010 012700 
000014 010077 
000020 000207 


; Maximum stack 


Routine Size: 


000000 004767 


000004 104412 
000006 000207 


Routine Size: 
Maximum stack 


N9 


SEQ 0117 

ZRCHBO RC25 DISK FORMATTER 5-Apr-1984 13:33:45 VAX-11 Bliss-16 Vv3-555 Page 18 
CLEANUP CODING SECTION 5-Apr-1984 13:31:29 SPIDERSUSERS: [NEALE .AZTEC ]ZRCHB3. g16;5°¢ (10) 
Sobers ‘CLEANUP CODING SECTION’ 
Cleanup coding is assembled with the diagnostic program, utilizing in- 
! itiating (BGNCLN) and ending (ENDCLN) directives. The coding can be 
! used by either the diagnostic p program or the supervisor to affect the 
! return of a test device ‘fo @ static state. 
! The clean-up code is invoked in three different ways: 
a 
: A. At end of every sub-pass 
: B. Issuance of N macro 
: C. Operator tC 
BGNC LN; 
! Before initing the RC25 controller check first to make sure that 
: that this is not a non-existant register. 
if mot .FLG_WRD [NON_EXIST_REG] then WRT_RC25 (RCIP, ONES); !Abort DM code execution 
return; 
ENOCLN; 

-SBTTL LCLEAN CLEANUP CODING SECTION 
000002 000000G LCLEAN: oS — 8 1925 
177777 MOV @-1,RO0 3; *,RCSM.REG 
000000G MOV RO,@RC25. ADDR ; RCSM.REG,« 

1$: RTS PC 3 1905 

9 words, Routine Base: AASCODE * 1170 
depth per invocation: O words 

-SBTTL LSCLEAN CLEANUP CODING SECTION 
177752 LSCLEAN:: 

JSR PC,LCLEAN F 1927 

TRAP 12 

RTS PC 
4 words, Routine Base: AASCODE + 1212 


depth per invocation: 2 words 


ZRCHBS 
REV B PATCH 00 


‘o 
& 


000000 000207 


3: Routine Size: 
3; Maximum stack 


000000 004767 
000004 104453 
000006 000207 


3; Routine Size: 
; Maximum stack 


B10 


ZRCHBO RC25 DISK FORMATTER S-Apr-1984 13:33:45 
DROP UNIT SECTION 5-Apr-1984 13:31:29 


Sebttl ‘OROP UNIT SECTION’ 

e 

The drop code is invoked by a DODU macro or a drop command, 
teins any code that needs to be executed in conjunction with 
co Fu @ unit from the test cycle. No coding is required 
section. 


BGNOU 
return; 
ENDDU; 


-SBTTL LOU DROP UNIT SECTION 
LOU: RTS PC 


1 word, Routine Base: AASCODE + 1222 
depth per invocation: O words 


. SBTTL Sey OROP UNIT SECTION 


177772 L$DU:: JSR PC,LOU 
TRAP 53 
RTS PC 


4 words, Routine Base: AASCODE + 1224 
depth per invocation: 2 words 


end con- 
the drop- 
in this 


The effect of a DODU is the same whether executed in the init code or 
in @ hardware test. It invokes the drop unit coding and causes subse - 
quent GPHARD'S for that logical unit to be returned "NOT COMPLETE”. 
This effect lasts only for the duration of the current command. 


VAX-11 Bliss-16 v3-555 Page 19 
SPIDERSUSERS: (NEALE .AZTEC )ZRCHB3.816;5 (11) 


SEQ 0118 


1928 


ZRCHBS 
REV B PATCH 00 


: 


000000 000207 


: Routine Size: 
3; Maximum stack 


000000 004767 
000004 104452 
000006 000207 


s Routine Size: 
; Maximum stack 


C10 


ZRCHBO RC2S DISK FORMATTER S-Apr-1984 13:33:45 
ADD UNIT SECTION 5-Apr-1984 13:31:29 


Sebtt) ‘ADD UNIT SECTION 
* 


Tre add code is invoked by the ADD command, and contains any code that 
needs to be executed in conjunction with adding a unit back to the 
test cycle. No coding is required in this section. 


Units may be added to the test sequence -_— through the use of opera- 
tor ADD commend. Each unit must have ea P-TABLE in memory due to ean 
earlier hardware dialogue (i.e. the unit was previously dropped). 
Tre ADD code must be delimited by BGNAU, ENDAU. There is no particu- 
ler coding required in the add code to cause the add to be effective: 


The section is just for programmer housekeeping. 


return; 
ENDAU; 
-SBTTL LAU ADD UNIT SECTION 
LAU: RTS PC 
1 word, Routine Base: AASCODE + 1234 


depth per invocation: O words 


-SBTTL LSAU — UNIT SECTION 


177772 LSAU:: JSR PC,.LA 
TRAP 52 
RTS PC 

4 words, Routine Base: AASCODE + 1236 


depth per invocation: 2 words 


F 1961 end 
3 1962 
3 1963 eludom 
3 OTS external references 
-GLOBL $sSAVE2, BLSDIVv 
8 PSECT SUMMARY 
3 
3 Psect Name Words Attributes 
8 AASCODE 339 MO, £ »« tO. MEL. Cor 


LIBRARY STATISTICS 


VAX-11 Bliss-16 v3-555 
SPIDERSUSERS: [NEALE . AZTEC )ZRCHB3.816;5 (12) 


0119 


1943 


1959 


ZRCHBS ZRCHBO RC25 DISK FORMATTER 

REV B PATCH 00 AOD UNIT SECTION 

Je ee ee ee eee ey ymbol 
3 File Total Loaded 
’ 

; SPIDERSUSERS: [NEALE .AZTEC )ZRCHBO.L16;2 

3 398 63 
3 COMMAND QUALIFIERS 

3 BLISS /PDP11/LIST ZRCHB3.B16 

3; Size: 289 code + 50 data words 

3; Run Time: 00:18.7 

: _eeannag Rbi Time: 02:34.9 


H : 222 pages 
3 wea Bey we Complete 


D10 


5-Apr-1984 13:33:45 
5-Apr-1984 13:31:29 


Percent 


15 


Blocks 
Read 


ea 


VAK-11 Blises-16 V3-555 "Pear 2 
SPIDERSUSERS: [NEALE .AZTEC J)ZRCHB3. Bi6;5°C (12) 


ZRCHB4 


E10 


ZRCHBO RC2S DISK FORMATTER S-Apr-1984 13:44:04 VAX-11 Bliss-16 V3-555 Page 1 
23-Sep-1983 14:13:18 SPIDERSUSERS: [NEALE .AZTEC JZRCHB4. B16;2°¢ (1) 


MODULE ZRCHB4 (STITLE ‘ZRCHBO nes DISK FORMATTER’ 
IDENT = ‘REV B PATCH 00’ 
ADDRESSING _MODE (RELATIVE) ’ 
CVIROIENT CNOEIS) 


BEGIN 
Sebttl ‘MODULE DECLARATIONS’ 


: Pretty Declarations 
, 


!<b1F/lowercase_key> 


library ‘ZRCHBO’ ; !Define RC25 formatter Library 
require '‘BLSMAC.REQ’; !Define Bliss Macro require file 
The psect named "code or $codes$" is redef inded here 


to be called “abscode” This is done to organize the 
_formatters test sections into ae seperate psect. 


s@c@ecmarase 
° 


peect 
code = abscode; 


Se 


! Structure declarations used within this module. 
e. 


structure 


> 


RC25 register accessing structure. This 

structure allows RC25 register accessing 

to be transportable between the PDOP-11 and 
VAX Diagnostic Supervisors. 


This also defines an access algorithm for 
VAX to allow field reference to MBA address 
space without generating machine checks. 


RC25 (0, P, S, E) = 
begin 


local 
RC$S_REG; 


RC$S_REG = .CRC25 + supvel*0)<0, sbpval, O>; 
RC$S_REG 


end 
<P, S, E>; 
!<blf/page> 


SEQ 0121 


ZRCHB4 
REV B PATCH 00 


F10 
ZRCHBO RC2S DISK FORMATTER S-Apr-1984 13:44:04 
MODULE DECLARATIONS 23-Sep-1983 14:13:18 


* 


External Routines declared outside this module. 


eer routine 
GET_DUST_STATUS, 
OG 


DUP $I _SERVICE : 
aes “SERVICE : 
INIT_COM_AREA, 
BOOT_RC25, 
DECODE : novelue; 


!<blf/page> 


INT_LNK$TYP novalue, 
INT_LNKSTYP novealue, 


VAX-11 Bliss-16 v3-555 SEQ ay 
SPIDERSUSERS ; (NEALE . AZTEC JZRCHB4.B16;2°C2) 


G10 


se. Hay 
ZRCHB4 ZRCHBO RC25 DISK FORMATTER 5-Apr-1984 13:44:04 X-11 Bliss-16 v3-555 
REV B PATCH 00 MODULE DECLARATIONS 23-Sep-1983 14:13:18 SPIOPASUSERS, : (NEALE. AZTEC JZRCHB4. e16,5°¢ (3) 
’ 1563 te 
3 ieee ! External Declaration of datums declared outside of this module. 
H {- 
3 1566 
3 1567 external 
3 1568 H 
i ai : Micellanious external date declarations 
8 . 
’ 1571 SW_UNATT, !Unattended reformat mode flag 
3 1572 DATETXT : vector (12, byte], !Stores operator date input 
; 1573 LUN : word, tLogical unit number storage 
3 1574 UNIT “NO : word, Ap | unit number storage 
3 1575 FLG_WRD : bitvector [16], Globel fleg word 
3 1576 Iso_ STRUCT : blockvector [4, 2, word] field (tsp "FIELD)® tInit sequence data 
3 1577 PTBL_PTR : ref vector [4, word) volatile, 
3 1578 NEX_FLAG : 0g i rn roe existence flag 
3 1579 NXT_CRN : “byt !Next command ref number 
8 1580 RET “ENSAD : on: block [RB_SIZE + 2, word] field CENV FIELD), 
3 1581 FCT_BUF : block (256, word], tExternal FCT sector load buffer 
3 1582 SNO_BUF : vector [SNOB_SIZE, rd), !DUP send cmd text buffer 
3 1583 REC_BUF : block (RECB_SIZE, hanes field (RECB FIELD), !DUP receive cmd text buffer 
3 1584 MSGADR, !Pointer to 0M sent ascii text 
3 1585 NSD_SLOT : word, ‘Stores next send ring slot to load cmd into 
3 1586 NRD_SLOT : word, !Stores next receive slot to expect response in 
3 1587 : 'Stores controllers vector address 
; 1588 RET_STATUS : word, !Stores return status of called routines 
3 1589 PID_SAVE : vector [2, word], 'Saves process indicator word 
3 fone RC25 ADDR : ref RC25S field c ISO_FIELD), !RC25 reference structure 
3 1592 Init sequence code error 
8 1593 : 
3 1594 BOOT _FAILURE, 
8 1595 PROTO _VIOLATION, 
3 1596 PORT_INIT_ERR, 
3 1597 ACTIVE _OuP “SERVER, 
: tt: INACTIVE _DUP_SERVER, 
3 8 
H 944 : External FCT request message during RESTORE formatting mode 
3 1602 FCT_REQG_MSG, 
H 1603 : 
3 ered : Printing format strings and ascii text strings 
+ . 
Fy 1606 DATMSG, 
s 1607 CRLF, 
H 1608 FMT1, 
Hy 1609 FMTS, 
3 1610 FMTé6, 
Fy 1611 FMT7; 
Fy 1612 


ZRCHB4 
REV B PATCH 00 


oe G+ Ge G+ Ge Ge G+ G+ GH Ge Ge Ge Ge GH GH Gs Ge Ge Ge Gs Gt GF Ge Gt OF GH Gs Ge GF GH Ge GH GH Ge GF Ge GH Ge GF Ge GF Ge Ge GF GF OF oF ae Gs oF oF 


H10 


5-Apr-1984 13:44:04 
23-Sep-1963 14:13:18 


: SE% 0124 
VAX-11 Bliss 55 Page 


ZRCHBO RC25 DISK FORMATTER H ( v3-5 a 
SPIDER SUSERS: [NEALE .AZTEC )ZRCHB4.816;2 (4) 


RC25 REGISTER EXISTENCE TEST 


Ssbttl ‘RC25 REGISTER EXISTENCE TEST’ 
BGNTST; 


Soe 

Functional Description : 
This section will be the first code to be executed during a formatting 
session and will ensure that the object drive to format actually does 
exist. The format for the unit will be aborted if the drive fails to 
respond to this initial test. 


Implicit Inputs : 
none 


Implicit Outputs : 
none 


Completion Codes : 
none 


Side Effects : 
none 


DUMMY : volatile, 
TEMP : voletile, 
RETRIES; 


FLG_WRD [NON_EXIST_REG) = ZERO; 
NEX_FLAG = ZEROS; 

SETVEC (4, INT$I_SERVICE, PRIO7); 
TEMP = .PTBL_PTR [WRDO); 

TEMP = .TEMP «+ 2; 


if .. TEMP 
then 


in 
y = ZEROS; 
end; 


CLRVEC (4); 
if .NEX_FLAG eql ONES 
then , 
mn 
PRINTB (FMT6, .PTBL_PTR [WRDO)); 
FLG_WRD [NON_EXIST REG] = ONE; 


DOCLN; 
end; 


'EOF indicator 
!Dummy variable for register ext test 


'Store number of retries to perform 


tInitielly clear nonexistant register flag 
!Clear out nex flag 

'Set up for an nex trap 

!Get this controllers IP address 

!Meke it into the SA register address 


!Read the sa register 
'This is so that if there 
'Is an nex there will be 
!A single opperand inst. 
!So that it will trap 


‘correctly. 
!See if we got an nex 
tAddress not there 


!Print error message 
!Set flag indicating non-existant reg 


I10 


SEQ 0125 
ZRCHB4 ZRCHBO RC25 DISK FORMATTER 5-Apr-1984 13:44:04 VAX-11 Bliss-16 v3-555 Page 
REV B PATCH OO INITIALIZE RC25 CONTROLLER 23-Sep-1983 14:13:18 SPIDERSUSERS: [NEALE .AZTEC ])ZRCHB4.616;2 (5) 
8 1S Senet ‘INITIALIZE RC25 CONTROLLER’ 
; . 
3 1666 ! The next thing to be done is to boot the RC25 controller. We will ellow 
3 1667 ! a few retries if not successful after the first boot before we concidered 
3 ee : the Controller dead. 
: . 
3 1670 ! But before we do the boot sequence the processors priority and interrupt 
3 1671 ! vector eddress must first be loaded. ——-* the init sequence the Init 
3 1672 ! sequence interrupt service routine will just fleg any interrupts and ignore 
: 1673 ! them since interrupts ere di sabled during intt sequence. Later the DUP 
3 thy ! interrupt service routine will be load and do the DUP communications protocol. 
3 $ 
3 1676 ! Thre following oriorities will be assi : 
Fy 1677 3 1. Processor will run at ae zero. 
8 16768 ! 2. The RC2S runs at priority 5 default. 
Fy ote a 3. Tre DUP interrupt routine at l run et priority 7. 
8 : 
3 1681 SETPRI (PRIOO); 'Set the processers priority 
3 1682 CLRVEC (.VEC_ADDR); 'Clear out the vector before setting 
3 ay SETVEC (. VEC _ADOR, INTSI_SERVICE, PRIO7); 'Set the interrupt service priority 
3 1685 !- 
3 oot : Retry the RC25 booting until the return is true or the retry Limit is reached. 
3 t- 
Fy 1688 RETRIES = -1; tReset the retry counter 
3 1689 
3 1690 do 
Fy 1691 pees 
Fy 1692 RET _STATUS = BOOT _RC2S (); !Boot the RC25 controller 
8 1693 RETRIES = .RETRIES + 1; 'Up the retry count 
Fy 1694 end 
3 — until (.RET_STATUS) or (.RETRIES ealu ONE); tRepeat the Boot until done 
3 
Fy 1697 3: 
; sted : Report booting error if the return status never came back as true. 
3 1700 
3 1701 if not .RET_STATUS !Did tne Controller boot 
; 1702 then 
Fy 1703 pega 'Report ea boot error 
3 1704 PRINTB (BOOT_FAILURE); 
8 1705 DOCLN; !Abort the program 
Fy 1706 end; 
H 1707 
8 1708 %. 
3 1709 ! Now that the RC25 controller is booted, check to make sure that the controller 
F they : hes done its pert of the DUP protocol by clearing out the port communications area. 
Fy H 
Fy 1712 ! While we're there set up the communication area for the up and coming communications 
F oets : between the remote and host program. 
; - 
Fy 1715 
8 1716 if INIT_COM_AREA () tWas the com erea cleared out as expected 
3 1717 then 
8 1718 in 'Com area not inited so error and abort 
3 1719 PRINTB (PROTO_VIOLATION); 
S 


1720 PRINTB (PORT_INIT_ERR); 


J10 


SEQ 0126 
Page 


Se 
1732 ! Start the controllers functional micro code by writing the SA Register 
1733 ! with step four write date with the go bit set. 
e. 


ZRCHB4 ZRCHBO RC2S DISK FORMATTER 5-Apr-1984 13:44:04 VAX-11 Bliss-16 V3-555 
REV 8 PATCH OO INITIALIZE RC25 CONTROLLER 23-Sep-1983 14:13:18 SPIDERSUSERS: [NEALE .AZTEC JZRCHB4. B16;2°C (5) 
: 1721 DOCLN; 

3 1722 end; 

H 1723 

3 1724 3 

3 1725 ! Before writing the go to the IP register load the DUP interrupt service adrs 

: 1726 ! into the RC25 vector address for the up and coming communications between 

: + ee : the host and controller. 

; . 

: 1729 CLRVEC (.VEC_ADDR); !Clear out the vector before starting 

: feng SETVEC (.VEC_ADDR, DUPSI_SERVICE, PRIO7); !Set the interrupt service priority 

3 1731 3: 

’ 

3 

’ 

3 


1735 WRT_RC2S (RCSA, (.ISD_STRUCT [BLK3, ISWRT, ISW_ALL) or #0000001’ )); tLet the controller go 


K10 


SEQ 0127 
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3 Rh Ssbttl ‘BRING RC25 CONTROLLER ONLINE’ 

3 

8 1738 fee 

: 1739 ! Functional Description : 

3 1740 3! This section will set the RC25 controllers characteristics and place 

FY 1741 +! the unit on-line. 

H 1742 +! 

Fy 1743 ! Implicit Inputs : 

3 1744 +! none 

3 1745 ! Implicit Outputs : 

3 1746 ~«(! none 

3 1747 ! Completion Codes : 

: 1748 #! none 

3 1749 ! Side Effects : 

3 1750 ! none 

H 1751 !-- 

3 1752 

A 1753 te 

H 1754 ! Set the controller characteristics. Default values will be taken in all cases 

3 ioe : except for the host time out value which will be changed to ‘wait for ever’. 

3 - 

3 1757 

3 aS if SET_CNTLR_CHAR () then DECODE (); 'Call decode if not successful 

Fy 1760 +e 

8 1761 ! Do a unit on Line cmd which will spin up the device and load the heads. The 

3 1762 ! unit to be placed on line will be the last unit number received from the ‘gphard’ 
8 ares ! macro in the init code. 

Fy !- 

3 Be PRINTB (FMTS, .LUN, .UNIT_NO); ‘Tell operator which units coming online 
H 1767 

A 1768 if ON_LINE () then DECODE (); 'Call decode if not successful 


L1i0 


SEQ 0128 
Page 


1825 if GET_DUST_STATUS () then DECODE (); 'Call decode if connection error 


ZRCHB4 ZRCHBO RC25 DISK FORMATTER 5-Apr-1984 13:44:04 VAX-11 Bliss-16 Vv3-555 
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ry phe @sbttl ‘DOWN LINE LOAD FORMATTER AND MONITOR TASK’ 

Fy 

3 1772 fee 

: 1773 ! Functional Description : 

3 1774 3 This section will down Line-load the RC25 formatter and emtinasd 
: Nee me *the formatting task. 

3 1776 «(3 

3 1777 ! Implicit Inputs : 

3 1778 ! none 

3 1779 ! Implicit Outputs : 

: 1780 ! none 

3 1781 ! Completion Codes : 

H 1782 3! none 

3 1783 ! Side Effects : 

3 : 1784 ,%&”’ none 

: 1785 “t--. 

: 1786 

3 1787 :. 

3 1788 ! See if the Dup server in the RC25 Controller is in an 

; 1789 ! idle state. To do this first get the dust status and 

: 1790 ! then look at the flag field bit 3 for a: 

3 1791 ! 0 = idle 

3 1792 +! 1 = active 

8 1793! 

H 1794 

8 fae if GET_DUST_STATUS () then DECODE (); !Call Decode if connection error 
H 1797 3 

: ie : Look in the flag field bit 3 to see if the server is active. 

3 . 

A 1800 

5 1801 if .RET_ENSAD [FLG_83) 'If the server is active exit and reboot 
3 1802 then 

Fy 1803 pagie 

8 1804 PRINTB CACTIVE_DUP_SERVER); 

8 1805 DOCLN; 

3 1806 end; 

3 1807 

F 1808 : 

Fy 1809 ! The server is not active so down line load the formatter 

Fy 1810 ! and start its execution by issuing a “Execute supplied program”. 

3 oeee : Cell the decode routine if a connection error is detected. 

r o 

Fy 1813 

F aes if EX_SUP_PROG () then DECODE (); 'Call decode if connection error 
r} 1816 !: 

3 1817 ! Get the dust status to see if the server is in an active 

$ 1818 ! state. An active state is what we want so error if the 

Fy 1819 ! server is in an idle state. 

3 1820 ! 

3 1621 ! If in the active state then save the progress indicator 

3 1822 ! in “Pid_save” for future reference. 

Fy 1823 ! 

Fy 1824 

3 

FH 
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3 1827 ! 
3 pT : Look at the flag field bit 3 to see if the server is active. 
: : 
3 1830 
: 1831 if not (.RET_ENSAD [FLG_B3)) !Reboot if server is idle 
3 1832 then 
3 1833 poy Me 
3 1834 PRINTS CINACTIVE_DUP_SERVER); 
3 1835 DOCLN; 
: 1836 end 
’ 1837 else 
H 1838 in 
3 1839 PID_SAVE [0] = .RET_ENSAD [PLO_IND); 'Save progress indicator lo word 
: 1840 PID_SAVE [1] = .RET_ENSAD [PHI_IND]); !Save progress indicator hi word 
3 1841 end; 
: 1842 
3 1843 fe 
; 1844 ! The Dup server is in the active state running the formatter 
3 1845 ! program. This DO LOOP will loop on the DUP sub-protocol 
; 1846 ! doing the "send and receive” data commands. These commands 
3 1847 ! establish the communications between this host program and 
: yo : the remote formatter program running in the RC25 controller. 
3 !- 
: rf RETRIES = ZERO; !Clear out the retry flag 
: 
3 pee siggy Sms do 
: in 
3 1854 
: 1855 te 
3 1856 ! Do a ‘Receive_data' command which poll's the remote program 
H pet ! for a message. The returned message can either be a: 
H $ 
: 1859 H 1. Question 
8 ron H Where the ascii text is a prompt for information. 
H $ 
; 1862 : 2. Default question 
3 1863 H Where the default question message is identical 
: 1864 H to the question message exept that a null (zero 
: 1865 : length) send data is taken to be a default answer 
Hy 1866 $ to the question. 
H 1867 : 
: 1868 H 3. Information 
H ryt : Where the ascii text is an informative message. 
$ : 
8 1871 H 4. Termination 
F ti | : Where the ascii text is an normal termination message. 
ri . 
F 1874 : 5. Fetel Error 
3 rth : Where the ascii text is a fatal error message. 
’ . 
A 1877 H 6. Special 
; 1878 1 This type is used when only a host program could 
; 1879 H respond. 
; 1880 !- 
F 1881 
F 1882 if REC_DATA () then DECODE (); 'Call decode if connection error 
$ 
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3 1884 : 
3 1885 ! From the first word in the send/receive date buffer, look 
3 1886 ! to see what type message the remote program has sent to 
; 1887 ! the Host program. Use this message type number to index 
: 1888 ! into the select expression to perform the requested action 
3 1889 ! by the remote program. 
Fy 1890 : 
Fy 1891 H 
3 ede $CLRSBUF ; !Clear out the send buffer area 
’ 
3 1894 selectoneu .REC_BUF [MSG_TYP] of !Select the appropriate action 
3 1895 set 
3 1896 
3 1897 (1) : !Question message type 
; 1898 begin 
3 1899 : 
; 1900 ! Look into the send/receive data buffer at the message 
3 1901 ! number field and see what question the remote program 
H 1902 ! is asking. Use the fields value to index into the 
3 soos : select expression to perform the appropriate action. 
; . 
8 1905 
3 1906 selectoneu .REC_BUF [MSG_NUM] of !Select the requested question 
3 1907 set 
3 1908 
‘ 1909 {0) : tEnter current date <MM-DD-YYYY> 
; 1910 begin 
FY 1911 H 
3 1912 ! If in un-attended reformat mode then give to the DM the 
Fy 1913 ! date received from the init code else let the DM prompt 
Fy 1914 ! the operator for the date. 
3 1915 H 
3 1916 
; 1917 if .SW_UNATT 'Is the host running in unattended mode 
os. Be =~ 
. in 
Fy 1920 a 
3 1921 if .RETRIES !Did DM not verify the date the last ime 
ness BS a 
3 in 
3 1924 ae 
; 1925 ! Clear out the date text buffer before loading in 
; seer : date and ask the operator for the date again. 
; . 
Fy 1928 
3 1929 incr i from O to 11 do 
ry bone DATETXT (.i]) = ZEROS; 
r 1932 GMANID (DATMSG, DATETXT, A, #0'177777', 8, 10, NO); !Get date from operator 
8 1933 end; 
Fy 1934 
8 1935 $FILLDATE; 'Fill the send buffer with the date 
3 1936 RETRIES = ONE; !Set the retry flag 
Fy 1937 end 
3 1938 else 
Fy 


begin 
1940 CMANID (MSGADR, SND_BUF, A, #0'177777', 8, 10, NO); 


Bil 
SEQ 0131 
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1941 end; 

1943 PRINTB (CRLF); 

1945 if SEND_DATA () then DECODE (); 

1947 end; 

1949 (7) : tEnter @ non-zero serial number 


in 
1951 ID (MSGADR, SND_BUF, A, #0'177777', 1, 64, NO); 
1952 PRINTB (CRLF); 


1954 if SEND_DATA () then DECODE (); 

1956 end; 

1958 [otherwise] : !This message number is unknown 
1960 Revs mc UMN _CODE ; !Unknown message number error code 
1961 DECODE ( !Report error and die 


1962 end; 
1963 tes; 


1967 {2) : 'Defeult Question 
begin 

1970 selectoneu .REC_BUF [MSG_NUM) of 

1971 set 


1973 {1) : !Enter unit number to format <0O> 
1974 begin 


! If in un- -attended reformat mode then give to the DM the 
! unit number obtained from the nardwere P_Table else let 
the DM prompt the operator for the unit to format. 


~ 
© 
~ 
~ 

*@e re teresa 


1981 if ,SW_UNATT 'Is i@ host running in unattended mode 
then 
1983 in 
-BUF = ,UNIT_NO; 
1985 PRINTB (FMT7, .UNIT_NO); !Report which unit is being formatted 
end 
1987 else 


1989 IO CMSGADR, SNO _6BUF , A, #0'177777', 1, . YES): 
1990 end; 


1992 PRINTB (CRLF); 
1994 if SEND DATA () then DECODE (); 
p end; 


: 


REV B PATCH 00 DOWN LINE LOAD FORMATTER AND MONITOR TASK 23-Sep-1963 14:13:16 SPIOERSUSERS: (NEALE. AZTEC JZRCHB4. gis,o°C (7) 


1998 (4) !Use existing bad block information <N> 


2 
r 

. 7 
3 


If in un-attended reformat mode then tell the 0M to 
: do a reformat mode else let the DM prompt the operator 
for the formatting mode to use for this unit. 


fv 
8 
fo 


2006 if .SW_UNATT !Ie the host running in unattended mode 
then 


in 
2009 ne * @e'Y'; !Default to do reformat mode 
2011 else 2 
in 
2013 CARN To CMSGAOR, SND _BUF , A, so' UTTTTT « ie Be YES); 
3 


2016 PRINTB (CRLF); 

2018 if SEND_DATA () then DECODE (); 

2020 end; 

2022 cS) +s !Use down-line load <N> 
2023 peas 

2024 NIO (MSGADR, SND_BUF, A, #0'177777', 1, 3, YES); 
2025 PRINTB (CRLF); 

if SEND_DATA () then DECODE (); 

2029 end; 


2031 (6) : 'Continue if bad block information is inaccessable <N> 
2032 begin 


2034 if ,SW_UNATT !Is the host running in unattended mode 
then 


36 pogia 
2037 _BUF = gc'N’; !Default not to continue 
end 
2039 else 
mn 
2041 CAaNID (MSGADR, SNO BUF, A, #0'177777', 1, 3, YES); 
end; 


20ag PRINTB (CRLF); 

2046 if SEND_DATA () tmhen DECODE (); 

2048 end; 

2050 (otherwise) : !This message number is unknown 
2052 Rey ants = UMN _CODE; {Unknown message number error code 


2053 !Report error and die 
2054 oot ogee 


e+ Ge Ge Ge Ge Gt Ge GF Ge Ge GH Gt Ge GF GH Gs GF Ge Gs Ge Ge Ge Gs GF GF Ge GH GE Ge Gs GF GF Ge Ge GF GH Ge GS GH Os GH GH GH GH Gt Gs Ge GH GF Ge OF Ge Ge GF oe Ge OF 
3 
fu 
~ 
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2055 tes; 
2057 end; 


2059 (3): !Informational message 
2060 begin 


2062 selectoneu .REC_BUF [MSG_NUM) of 
2063 set 


2065 (0, 1, 2, 3. 4, 5, 7, 9 11, 14, 16) : !All possible information msg's 
mn 
2067 PRINTS CFMT1, MSGADR); 
end; 


2070 [otherwise] : !This message number is unknown 


2072 Revs _STATUS = UMN_CODE; !Unk nown nag ob number error code 
2073 DECODE (); !Report error and die 

2074 end; 

2075 tes; 


2079 (4) : Termination message 
2080 begin 


euteetenie -REC_BUF [MSG_NUM) of 
se 


2085 (12, «i : !Abort and normal termination type 


2087 PR NTB CFMT1, MSGADR); 

2088 WRT _RC2S CRCIP, ONES); !Stop the remote program 
2089 exitloop tReturn to init code 
2090 end; 


2092 [otherwise] : !Tnhis message number is unknown 
mn 
2094 Re? STATUS = UMN_CODE; !Unknown message number error code 
2095 DECODE (); 'Report error and die 
2096 end; 
2097 tes; 
2099 end; 


2101 (5) : Fatal error message 
2102 begin 


2104 selectoneu .REC_BUF [MSG_NUM] of 
2105 set 


2107 (1 to 24) : ‘Error messages are from 1 to 24 
in 
2109 PRINTB (FMT1, MSGADR); 


2110 WRT_RC25 (RCIP, ONES); !Stop the remote program 
2111 DOCLN; Ki lL this formatter and return to init code 


: 


Ell 


SEQ "2 
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eile 
2113 


end; 


[otherwise] : !Tnhis message number is unknown 


tes; 


eegin 


n 
RE? STATUS s UMN_CODE; !Unknown message number error code 
DECODE (); !Report error and die 
end; 


!Special message type 


selectoneu .REC_BUF [MSG_NUM) of 


set 


(1): 


'FCT sector request 
begin 


If this is the first FCT sector request (sector 0) then ask 
the operetor for the external FCT file name and open the file. 
The supervisor will error and return to DRS> monitor if the 
requested file is not found on the local load media 


if .REC_BUF [MSG_TXT) eql FCT_SEC_O 
then 


in 
CHRNID CFCT_REQ_MSG, SNDO_BUF, A, #0'177777', 1, 10, NO); 
es (SNO_BUF ); 

3 


Load into the FCT_BUF the next sequential 256 FCT sector words 


iner FCT_wRO from FCT_BUF to FCT_BUF + #0'776' by so'2' do 
in 
cor = GETWORD (.FCT_WRD); 
end; 
Test to see if the EOF indicator was returned from the GETWORD macro 
before 16 FCT sectors were read indicating an illegal FCT file format. 
End of file is reached when .EOF = 0; 


if (C.EOF eql ZERO) and (.REC_BUF [MSG_TXT] lss FCT_SEC_15)) or (.REC_BUF [MSG_TXT]} gtr 
FCT_SEC_15) 
then — 
in 
SNS. BUF [0] = ONES; tIndicate failure to get good FCT file 


if SEND_DATA () then DECODE (>; !Send failure to DM 


ZRCHB4 


REV B PATCH 00 


ee Ge Ge Gs GF Ge Gs Ge Ge Gs Ge Gs Ge Gs Ge GF GF GH Gs GF Ge GH Ge Ge Ge GF Ge Ge GF Gs GF GF OF Gs oF OF Os Ge OF oe OF OF 


2169 
2170 


ZRCHBO RC25 DISK FORMATTER 
DOWN LINE LOAD FORMATTER AND MONITOR TASK 


RET_STATUS = ILL_FCT; 


DECODE (); 
end; 


Fil 


EQ 
S-Apr-1984 13:44:04 VAX-11 Bliss-16 v3-555 . ay 15 
23-Sep-1963 14:13:18 SPIDERSUSERS : [NEALE .AZTEC J)ZRCHB4. B16;2°C (7) 


tHost will also report the failure 
‘Error out and die 


! Return to the remote program a success indicator and the 


SNO_BUF (0) = ZERO; 
SNO_BUF (1) = FCT_BUF; 
SNO_BUF [2) = ZERO; 


unibus lo and hi adrs of where this FCT sector can be found 
and send the information back to the remote program. 


tIndicate success 
tLo unibus adres of FCT sector 
'Hi unibus edrs of FCt sector 


if SEND_DATA () then DECODE (); !Send reply back to DM 


Close this External FCT file if this is FCT sector 15. 


if .REC_BUF [MSG_TXT] eql FCT_SEC_15 then CLOSE; 


end; 
(otherwise) : 
in 
RET_STATUS = UMN_CODE; 
DECODE (); 
end; 
tes; 
end; 
[otherwise] : 
n 
RE? STATUS = UMT_CODE; 
DECODE (); 
end; 
tes; 
end; 


ENDTST; 


!This message number is unknown 


!Unknown message number error code 
!Report error and die 


-TITLE ZRCHB4 ZRCHBO RC25 DISK FORMATTER 


-IOENT /REV B 


-GLOBL ABORT, GET.DUST.STATUS, EX.SUP.PROG 
-GLOBL EX.LOC.PROG, REC.DATA, SEND.DATA 

-GLOBL SET.CNTLR.CHAR, ON.LINE, DUPSI.SERVICE 
-GLOBL jabs Frnt INIT.COM.AREA, BOOT.RC2S5 


SW.UNATT, DATETXT, LUN 


. Cc 

-GLOBL UNIT.NO, FLG.WRO, ISO.STRUCT, PTBL.PTR 
-GLOBL NEX.FLAG, NXT.CRN, RET.ENSAD, FCT. BUF 
.GLOBL SNO.BUF, REC.BUF, MSGADR, NSD.SLOT 
-GLOBL NRD.SLOT, VEC.ADOR, RET.STATUS 

-GLOBL PID.SAVE, RC25.ADDR, BOOT .FAILURE 


ZRCHB4 
REV B PATCH 00 


ZRCHBO RC25 DISK FORMATTER 


DOWN LINE LOAD FORMATTER AND MONITOR TASK 


$Til: 


18: 


2s: 


33; 


4%: 


Gli 
5-Apr-1984 13:44:04 
23-Sep-1983 14:13:18 


PROTO.VIOLATION, PORT. INIT.ERR 


VAX-11 Bliss-16 v3-555 Page 16 
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ACTIVE .OUP.SERVER, INACTIVE .DUP. SERVER 


FCT.REQ.MSG, DATMSG 
FMTS, FMT6, FMT? 


» CRLF, FMT1 


$T1 DOWN sy LOAD FORMATTER AND MONITOR TASK 


ABSCODE, 


R1, $SAVES 
-(SP),-CSP) 
@2,FLG.WRD 
NEX. FLAG 
#340, -(SP) 


@INT$I.SERVICE, 


o4, -(SP) 
e3, -(SP) 
37 


@PTBL .PTR,10( SP) 


@2,10(SP ) 
+ rire 


1 
12(SP) 
04,RO0 


36 
_ 
@PTBL .PTR, (SP) 


44a 
(SP )+,CSP)> 
RO 


41 

VEC. ADDR ,RO 
36 
@340,(SP) 


@INT$I.SERVICE, -( SP 


VEC.ADOR, -( SP) 


RO, RET. STATUS 
R3 

@1,R0 

4s 

R3,@1 

38 

+ eealcaataaes 


#B00T. +, aaameattcinai 


-CSP) 


) 


@ RETRIES 
RETRIES 

@, RET. STATUS 
RETRIES,« 


SP,e 


SEG 0136 


1658 
1681 


1682 
1683 


1686 
1692 


1693 
1695 


1rvl 
1704 


ZRCHB4 
REV B PATCH 00 


ZRCHBO RC25 DISK FORMATTER 


DOWN LINE 


000022 


53: 


68: 


7$: 


98: 


108: 


LOAD FORMATTER AND MONITOR TASK 


Hil 


5 -Apr -1984 13:44:04 
23-Sep-1983 14:13:16 


14 
44 


(SP )-+ 
PC, INIT.COM. AREA 
RO 


6$ 

@PROTO. VIOLATION, (SP) 
#1, -(SP) 

SP ,RO 


14 
@PORT.INIT.ERR,( SP) 
@1,-(SP) 


14 


ag 
(SP)+,CSP)> 
VEC . ADDR ,RO 
36 


@340,(SP) 

@0UP $I. SERVICE, -(SP) 
VEC .ADOR, -( SP) 

+ -(SP) 


3 
Silene 


PC .DECODE 
* aetna 


9% 

PC ,DECODE 
RET .ENSAD,RO 
— 22(RO) 


DACTIVE. DUP . SERVER ,( SP) 
@1,-(SP) 

SP ,RO 

14 

as 


(SP )> 
PC,EX.SUP.PROG 
RO 


-11 Bliss-16 


SEQ 0137 
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: SP,e 


3s #,RCSM.REG 
s #,RCSM.REG 


; RCSM.REG,« 


1703 
1716 
1719 


1720 


1718 
1729 


1730 


1735 


1758 


1765 


1768 


1795 


ZRCHB4 
REV B PATCH 00 


004767 
004 767 
006000 


ZRCHBO RC25 DISK FORMATTER 


DOWN LINE LOAD FORMATTER AND MONITOR TASK 


000000G 
000000G 118: 
000000G 
000000G 128: 
004000 000022 
000000G 
000001 
000024 000000G 138: 
14$ 
0000006 15$: 
000000G 
168: 
000000G 17$: 
000110 
000000G 
177760 
1 
170000 
000001 000000G 
000001 
000000G 188: 
000013 
198: 


Til 
5-Apr-1984 13:44:04 
23-Sep-1983 14:13:18 


PC ,DECODE 


PC ,GET.OUST.STATUS 
RO 


12s 

PC ,DECODE 
RET .ENSAD,R1 
Ct namaiaas 


1 
@INACTIVE .OUP. SERVER, (SP) 


#1, -(SP) 
14° 

44 

(SP )> 


14% 
24(R1),PIO. SAVE 
26(R1),PID.SAVE+2 


R3 
PC,REC.DATA 
RO 


16% 

PC ,DECODE 
RO 

we” alam 
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RETRIES 


« RETRIES 


I 
.@(T) 
I 


I,¢ 


1825 


1831 


1834 


1894 


1933 


ZRCHB4 
REV B PATCH 00 


001000 
001006 


ZRCHBO RC25 DISK FORMATTER 


DOWN LINE LOAD FORMATTER AND MONITOR TASK 


000000G 000000G 208: 
000013 
000001 

21s: 
000000G 228: 
000001 
000007 23%: 
000000G 
000001 
000002 243: 
170000 
000001 


258%: 


Jil 
5-Apr-1984 13:44:04 
23-Sep-1983 14:13:18 


ee 


$ 
UNIT .NO,SNO . BUF 
UNIT .NO, (SP) 
OFMT7, -CSP) 
@2, -( SP) 
SP ,RO 


14 
(SP)+,(SP)+ 
26% 


VAX-11 Bliss-16 V3-555 


SEQ —y 


19 
SPIDERSUSERS: [NEALE .AZTEC JZRCHB4. B16;2°¢ (7) 


; #,RETRIES 


s #(I),«C€I) 
I 


I, 


SP, 


SP,« 


1936 
1917 
1940 


1943 


1945 
1906 


1951 


ZRCHB4 


REV B PATCH 00 


ZRCHBO RC25 DISK FORMATTER 


DOWN LINE LOAD FORMATTER AND 


000000G 


000001 


000001 


268: 


27s: 


283: 


308: 


31%: 


328: 
33%: 


34$: 


Kil 
5-Apr-1984 13:44:04 
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MONITOR TASK 
. WORD 
MOV @CRLF , (SP) 
MOV SP ,RO 
TRAP 14 
BR 31% 
CMP RO, 04 
BNE 30% 
BIT @1,SW.UNATT 
BEQ 
MOV #131, SNO.BUF 
BR 29% 
TRAP 43 
-WORD 406 
-WORD  SNOD.BUF 
-WORD 152 
-WORD MSGADR 
-WORD -1 
-WORD 1 
-WORDB 3 
MOV @CRLF CSP) 
MOV #1,-C(SP) 
MOV SP,RO 
TRAP 14 
BR 31$ 
CMP RO,@5 
BNE 32% 
TRAP 43 
-WORD 406 
-WORD SND.BUF 
-WORD 152 
-WORD MSGADR 
.WORD -1 
-WORD 1 
-WORD 3 
MOV @CRLF ,C SP) 
MOV #1,-C(SP) 
MOV SP,RO 
TRAP 14 
JSR PC,SEND.DATA 
ROR RO 
BLO 368 
BR 37$ 
CMP RO, 6 
BNE 8$ 
BIT @1,SW.UNATT 
BEQ 
MOV #116, SND.BUF 
BR 35% 
TRAP 43 
-WORDB 406 
-WORD SNOD.BUF 
-WORD 152 
-WORD MSGADR 
.WORD -1 
-WORD 1 
-WORDB 3 


VAX-11 Bliss-16 V3-555 


SEQ 0140 
Page 


20 
SPIDERSUSERS : [NEALE .AZTEC ]ZRCHB4 .B16;2 (7) 


; SP,« 


2016 


2018 
1970 


2024 


ZRCHB4 
REV 8B PATCH 00 


012716 


ZRCHBO RC25 DISK FORMATTER 


DOWN LINE LOAD FORMATTER AND MONITOR TASK 


000000G 
000001 


177777 
000000G 
000005 


000000G 
170000 
000030 


35%: 


40$: 


41%: 


42%: 


et! 
5-Apr-1984 13:44:04 
23-Sep-1983 14:13:18 


@CRLF CSP) 
#1, -(SP) 
SP ,RO 


14 
PC,SEND.DATA 
RO 


37$ 

PC ,DECODE 
(SP )+ 

44$ 


04001 ,RET.STATUS 
57 


VAX-11 Bliss-16 V3-555 
SPIDER SUSERS : [NEALE .AZTEC ]ZRCHB4 .B16; 


SP,* 


SP, 


SP ,« 


¢,RC$M.REG 
RCSM.REG,@ 


SEQ 0141 a 
age 
(7) 


2044 


2046 


2032 
1970 
2052 
2053 
1894 


2062 


2087 


2088 


2086 
1894 


2104 


ZRCHB4 
REV B PATCH 00 


ZRCHBO RC25 DISK FORMATTER 


DOWN LINE LOAD FORMATTER AND MONITOR TASK 


000000G 
000000G 
000002 


177777 
000000G 


000776G 


177777 000000G 
000000G 


43%; 
44$;: 
45$: 


46$: 


Mil 


5-Apr-1984 13:44;04 
23-Sep-1983 14:13:18 


R1,%6 
56 


#2,R1 

R1,0FCT .BUF +776 
47$ 

R2 

51$ " 

REC .BUF +2,017 
52s 

REC .BUF 62,017 
54$ 


#-1,SNO0.BUF 


53% 

PC ,DECODE 

#6001 ,RET.STATUS 
aT 


ND . BUF 
oF CT .BUF ,SND.EUF +2 
SND . BUF +4 


VAX-11 Bliss-16 v3-555 
SPIDERSUSERS: [NEALE 


SP,* 


«,RC$M.REG 
RC$M.REG, + 


*,FCT.WRD 
FCT.WRD,* 


RO.FCT.WROD 
«, EOF 


EOF 
*,FCT.WRD 
FCT.WRD,* 


EOF 


SEQ 0142 
Page 22 
- AZTEC ]ZRCHB4 .B16;2 (7) 


2109 


2142 
2149 
2151 


2149 


2161 


2165 
2167 


2169 
2170 
2178 
2179 
2180 


ZRCHB4 
REV B PATCH 00 


004767 
006000 


103002 
004767 
026727 
001007 
104435 
000405 


012767 
004767 
000167 
062706 
000207 


; Routine Size: 
; Maximum stack 


000000 
000000 
000004 
000006 
000010 
000012 


004767 
104466 
006000 
103773 
000207 


; Routine Size: 
; Maximum stack 


SEQ 0143 

ZRCHBO RC25 DISK FORMATTER 5-Apr-1984 13:44:04 VAX-11 Bliss-16 v3-555 Page 23 
DOWN LINE LOAD FORMATTER AND MONITOR TASK 23-Sep-1983 14:13:18 SPIDERSUSERS: [NEALE .AZTEC )ZRCHB4. B16;2°C (7) 
000000G JSR PC,SEND.DATA 3 2182 

ROR RO 

Bcc 55$ 
000000G JSR PC ,DECODE 
000002G 000017 558: CMP REC .BUF +2,017 PF 2188 

BNE 58s 

TRAP 35 

BR 58$ 8 2126 
001001 000000G 568: MOV #1001 ,RET.STATUS F 2203 
000000G 578: JSR PC ,DECODE 3 2204 
176334 58s: JMP 15$ PF i852 
000036 598: ADD #36 ,SP 3 1611 

RTS PC 
607 words, Routine Base: ABSCODE + 0000 
depth per invocation: 23 words 

SBTTL Ti DOWN LINE LOAD FORMATTER AND MONITOR TASK 
175476 Ti:: 

1$: JSR PC,$T1 3 2208 

TRAP 66 

ROR RO 

BLO 1$ 

RTS PC 
6 words, Routine Base: ABSCODE + 2276 


depth per invocation: 2 words 


Nil 


2211 end 
2212 
2213 eludom 
OTS external references 
-GLOBL ‘$sSAVE3 
PSECT SUMMARY 
Psect Name Words Attributes 
AB SCODE 613 SO. £ « Ch. OE, Cor 
LIBRARY STATISTICS 
sescccee Symbols -------- Blocks 
File Total Loaded Percent Read 
SPIDER SUSERS : [NEALE . AZTEC )ZRCHBO.L16;2 
398 168 42 38 


ZRCHB4 ZRCHBO RC25 DISK FORMATTER 
REV B PATCH OO DOWN LINE LOAD FORMATTER AND MONITOR TASK 


; COMMAND QUALIFIERS 
; BLISS /PDPLI/LIST ZRCHB4.516 


Size: 613 code : 0 date words 
Run Time: 00:24 

Elapsed Time: 02:14. 3 

Memory Used: 586 pages 

Compilation Complete 


2 


5- 
3$- 


Ble 


Apr -1984 15:44:04 
-Sep-1983 14:13:18 


SEQ 0144 
VAX-11 Bliss-16 v3-555 Pege 24 
SPIDERSUSERS: [NEALE . AZTEC JZRCHB4.616;2 (7) 


ZRCHBS 


1537 


5 4 
5 -Apr-1984 13:46:24 VAX-11 elie: te v3-555 Pear. 1 
11-Jan-1984 13:23:12 SPIDERSUSERS: [NEALE .AZTEC )ZRCHBS.8616;4 (1) 
MODULE ZRCHBS (STITLE ‘ZRCHBO RC25 DISK FORMATTER’ 
IDENT = ‘REV B PATCH 00’, 


ADDRESSING _MODE (RELATIVE) , 
ENVIRONMENT (NOEIS) 


) = 
BEGIN 
Sebttl ‘MODULE DECLARATIONS’ 


Pretty Declarations 


ZRCHBO RC25 DISK FORMATTER 


!<b1/lowercase_key> 


library ‘ZRCHBO'; 
require ‘BLSMAC.REQ’ ; 


!Define RC25 Formatter Library 
!Define Bliss Macro require file 
o 

A forward-routine-decleration decleres @ name to be a routine-naeme whose 
definition is given leter in the same block, and associates with that name the 
set of ettributes needed for generation of call to the named routine. 


The following is a list of all routines declered within this module and can 
be noted that this module is only place where global routines ere declared. 


forward routine 


LOAD _FILE, 
GET_NSD, 

GET _NRD, 

LOAD _OUT$STD_BUF, 
ea SREF , 


: novelue, 
hg: lam : INT_LNKSTYP novalue, 


ORT, 
GET_DUST_STATUS, 
EX_SUP _PROG, 


ON_LINE, 
INT$I_SERVICE : INT_LNKSTYP novelue, 
IS_TIMER 


BOOT _RC25, 
INIT _COM_AREA; 


§ <BLF /PAGE > 


tLoad file from local load media 

'Get next send descriptor slot index 
!Get next receive descriptor slot index 
tLoad out standing commend buffer 

'Get unique command reference number 
!Decode return stetus error code 

!Dup/UQ port interrupt service routine 
!Command time out wait 

!Abort Dup command 

'Get Dust Stetus command 

tExecute Supplied Program command 
tExecute Locel Program command 

!Send Date command 

'Receive Date command 

'Set Controller Cnaeracteristics command 
!0n Line command 

!Initialization sequence interrupt service 
fInitialization sequence time-out wait 
tInitialize sequence for RC25 controller 
!Initialize UQ Port communication area 


oe Ge Ge Ge Ge GF Ge Ge Gs Ge Be Ge OF Gs GF GF os GF GF Os GF Ge Gs SH Gs Gs OF OF oF OF OF GF oe 


1569 
1570 


Die 


ZRCHBO RC2S DISK FORMATTER S-Apr-1984 13:46:24 VAX-11 Bliss-16 V3-555 eee 
MODULE DECLARATIONS 11-Jan-1984 13:23:12 SPIDERSUSERS: [NEAL E. AZTEC JZRCHBS.816;4 (2) 
te 
! The psect named “code or tcode$” is redefinded here to be called “acicode”. 
: This is done to organize formatter routine code into a seperate psect. 
psect 
code = acsicode; 
ts 
: Structure declarations used within this module. 
structure 
te 
! RC25 register accessing structure. This structure allows RC25 Hg te 
: accessing to be transportable between the PDP-11 and VAX Diagnostic Supervisors. 
! This also defines en access algorithm for VAX to allow field reference 
: to MBA address space without generating machine checks. 
RC25 (0, P, S, E) = 
begin 
local 
RC$S_REG; 
RC$S_REG = .(RC25 + supvele0)<0, sbdpvel, O>; 
RC$S_REG 
end 
<P, S, E>; 
!<blf/page> 


ZRCHBS 


REV 6B PATCH 00 


oe GF Ge Gs GF Ge GF GF OF Ge GF GF GF GF Gt GF Ge GF Gs GF Gs OF Gs GF Ge GF GF OF OF Ge OF GF OF Oe os OF OF OF OF Os a 


1571 


1610 
1611 


ZRCHBO RC25 DISK FORMATTER 
MODULE DECLARATIONS 


eaternal 


Communications area declarations 


Ele 


5-Apr-1984 13:46:24 VAX-11 Bliss-16 v3-555 
11-Jan-1984 13:23:12 


! External Declaration of datums declared outside of this module. 


COM_AREA : blockvector [REC_ALLOCATE + SND_ALLOCATE - HOR_SIZ, 2, word], 
HEAD_AREA : ref block (4, word] field (HOR_FIELD), 

RECEIVE _RING : ref blockvector [REC_ALLOCATE, 2. word) field (OSC_FIELD), 
SEND_RING : ref blockvector [SND_ALLOCATE, 2, word] field (DSC FIELD), 


REC_ENVELOPE : blockvector [REC_ALLOCATE, RB 
SND_ENVELOPE : blockvector [SND_ALLOCATE, SB 


-SIZE + 2, word) field (ENV_FIELD), 
-SIZE + 2, word) field (ENV_FIELD), 


RET_ENSAD : ref block (RB_SIZE + 2, word) field (ENV_FIELD), 
REC_BUF : block (RECB_SIZE, word) field (RECB_FIELD), 


SNO_BUF : vector [SNOB_SIZE, word] 
OUT$STO_BUF : blockvector [REC_ALL 


: Miscellanious external data declarations 


NEX_FLAG : word, 
NRO_SLOT : word, 
NSD_SLOT : word 


RC25_ADOR : ref RC25 field (ISD_FIELN), 


® 
F) 
& 


word, 
PID_SAVE : vector (2, word], 
VEC_ADOR : 


word, 
RSVD_STRUCT : vector [4, word], 


OCATE, 2, word) field (OUTSFIELD), 


!Non-existent RC25 register flag 
!Next receive descriptor slot 
!Next send descriptor slot 
!Controller reg access struct 
'Global return status location 
!Saves program indicator field 
!RC25 interrupt vector address 
'Stores init seq resvered fields 


ISD_STRUCT : blockvector [4, 2, word] field (ISO_FIELD), !Init seq data 


UNIT_NO : word, 
NXT_CRN : byte, 


! Error Messages Structures 
® 


PFE_STRUCT : vector [23], 

EMSG_STRUCT : vector [23], 

RC_STRUCTURE : vector [39], 

SDUP _STRUCT : vector [7], 

SMSCP_STRUCT : vector (13) 
!<b1lf /page> 


!P_table unit number to format 
!Stores next cmd ref number 


!Port fatel error msg struct 
‘Error mess structure 

!RC25 SA register fatel error 
!0UP return status code messages 
!MSCP return status code messages 


SPIDERSUSERS: [NEALE . AZTEC JZRCHB5.B16; 


SEQ 0147 
aC3) 


File 


SEQ_0148 
01 


ZRCHBS ZRCHBO RC25 DISK FORMATTER 5-Apr-1984 13:46:24 VAX-11 Bliss-16 v3-555 age 
REV B PATCH 00 MODULE DECLARATIONS 11-Jan-1984 13:23:12 SPIDERSUSERS: (NEALE .AZTEC )ZRCHBS.616;4 (4) 
3 1612 : 

3 1613 ! Formatted ascii strings 

3 1614 H 

: 1615 PIO_FMT, !Progess indicator printing string 

; ty FMT4, !Micro code version printing format 

3 4 

3 ate : OM code parameter declarations 

3 . 

3 1620 ! The following declarations ere declered in module azkel6 ‘DM code 

3 ext ! module’ and point to the starting address of specific DM code buffer areas. 

; : 

3 ee : COVSA is declared in azkel2 and is a memory location however) 

3 

3 1625 ! It is ae hack but the azfmtr storage allocation must be edited in manually 

; 1626 ! any time the DM code buffer changes. Get this value from the output of 

3 eH : OMCONV program. (Bliss wants this allocation value to be e compile time constant). 
Hy . 

8 1629 AZFMTR : vector (8989, word], !RC25 formatter OM code buffer 

$ 1630 HOSA, tHost DOM code header address 

3 1631 DMSA, tHost DM code initiel load address 

3 1632 OVSA; tHost First overlay address 


ee G+ Ge G+ Ge Gs Gt Gt Ge Ge GH Ge = GH Gt GH Ge Ge GH Ge GH Ge GH Ge Gs GH Gs Ge Ge G+ Ge GH Ge OF Ge Ge Ge Ge Gs GH Ge Ge Ge Ge GF Ge Ge Ge Ge Gs os Ge Ge G+ OF oe Oe z 


5 
Vv B PATCH 00 


ZRCHBO RC25 DISK FORMATTER 
MODULE DECLARATIONS 


11-Jan-1984 13:23:12 


Gle 


55-Apr-1984 13:46:24 VAX-11 Bliss-16 v3-555 
SPIDERSUSERS : [NEALE . AZTEC )ZRCHBS .B16 


globel routine LOAD _FILE (BUF_LOC, FN_EXT, BUF_SIZ) = tLoad file from local load maedia 


ee 
Functional Description : 


Formal Parameters : 


over runs. 
Implicit Inputs : 
none 


Implicit Outputs : 
none 


Completion Codes : 
FRE _CODE 


Side Effects : 


begin 
locel 


OPEN (.FN_EXT); 
EOB = (.BUF _SIZe2) + .BUF_LOC; 


°° 


ineru i from 0 to 255 do 


in 
Ce fwORD ( .BUF LOC); 
end; 


This multi-purpose routine is used to read in files from tne boot 
device into host memory space at the specified buffer address. 


BUF _LOC This contains the host memory address where 
words read in from the boot device are to 
be loaded. 

FN_EXT This contains a pointer to an asciz string 
of the file name to be read in. 

BUF SIZ This contains the number cf worcs allocated 


for the buffer where the file i: to be read 
in. This is used for protect ageinst buffer 


Is returned if the end-of-file indicator is 
not returned before the buffer is full. 


PAS _CODE Is returned if end-of-file indicator is returned 
before tne buffer is full. 


Date previously loaded in the specified load buffer is 
destroyed by the incomming file from disk. 


!Return stetus from getword macro 
tEnd of buffer address storage 


!Open the file for input 
'Calculate the last buffer address 


Read the first block from the input file and through 
it away since it only contains RT-11 information. 


SEG 0149 


Pp 5 
4S) 


H1le 


SEQ 0150 
ZRCHBS ZRCHBO RC25 DISK FORMATTER 5-Apr-1984 13:46:24 VAX-11 Bliss-16 v3-555 Page - 
REV B PATCH 00 MODULE DECLARATIONS 11-Jan-1984 13:23:12 SPIDERSUSERS: [NEALE .AZTEC J)ZRCHBS. 816;4°C ts) ° 
Fy 1691 ! Loop on getting a word from the load file. After 
3 1692 ! increment to the next word by adding #0'2' to the 
8 1693 ! buffer load addrss. Continue getting words until 
3 1694 ! the not complete indicator is returned (0) or the 
’ 1695 ! buffer is over run. Return an error code if the 
3 1696 ! buffer is over run. 
3 1697 !- 
3 1698 
FY 1699 do 
3 1700 —— 
Fy 1701 * GETWORD ( .BUF _LOC); !Read next word into .mem_loc 
FY te | al LOC = .BUF LOC + to'2'; tIncrement to next word 
3 
3 Be weit ( mot .NEOF) or (.BUF_LOC eqlu .£08); !Repeat until eof or buf overrun 
3 
3 1706 H 
8 ped : Return an error code if not eof (neof = 1) else close the file and return a pass code. 
8 : 
Fy 1709 
Fy 1710 if .NEOF {Was the eof indicator returned 
3 1711 then 
Fy 1712 return RET_STATUS = FRE_CODE !Return error code to caller 
3 1713 else 
3 1714 in 
3 1715 CLOSE; 'Eof was returned so close file 
3 1716 end; 
3 1717 
3 1718 return RET_STATUS = PAS_CODE; !Return ae pass code to the caller 
3 1719 end; 
-TITLE ZRCHBS ZRCHBO RC25 DISK FORMATTER 
-IDENT /REV B / 
-GLOBL COM.AREA, HEAD.AREA, RECEIVE.RING 
-GLOBL SEND.RING, REC.ENVELOPE, SND.ENVELOPE 
-GLOBL RET.ENSAD, REC.BUF, SND.BUF, OUTSSTD.BUF 
-GLOBL NEX.FLAG, NRO.SLOT, NSD. SLOT, RC25.ADDR 
-GLOBL RET.STATUS, PID. SAVE, VEC. ADOR 
.GLOBL RSVD. STRUCT, ISD.STRUCT, UNIT.NO 
-GLOBL NXT.CRN, PFE. STRUCT, EMSG. STRUCT 
-GLOBL RC. STRUCTURE, SOUP. STRUCT, SMSCP .STRUCT 
-GLOBL PID.FMT, FMT4, AZFMTR, HOSA, OMSA 
-GLOBL OVSA 
-SBTTL LOAD.FILE MODULE DECLARATIONS 
000000 -PSECT ACSCODE, RO 
000000 004167 000000G LOAD.FILE: 
J R1, $SAVE3 F 1634 
000904 016600 000014 MOV 14(SP),RO 3 FN.EXT,« 1677 
000010 104434 TRAP 34 
000012 016600 000012 MOV 12(SP),RO 3; BUF .SIZ,« 1678 
000016 006300 ASL RO 
000020 016602 000016 MOV 16(SP),R2 ; BUF .LOC,« 


000024 060200 ADD R2,RO 


ZRCHBS 
REV B PATCH 00 


: Routine Size: 
: Maximum stack 


3 1720 


ZRCHBO RC25 DISK FORMATTER 
MODULE DECLARATIONS 


1$: 

2s: 
000377 
000016 3$ 
000016 
000001 

4$: 
000002 000016 5$ 
000001 
000016 

6$: 
005001 

7$: 
000000G 

S2 words, Routine Base: 


depth per invocation: 6 words 


Tie 


S-Apr-1984 13:46:24 
11-Jan-1984 13:23:12 


i$ 
16(SP),RO 
27 

4s 

RO,816( SP) 
#1,R2 

S$ 

Re 
#2,16(SP) 
#1,R2 


#5001 ,RO 
RO,RET.STATUS 
PC 

35 
RET.STATUS 
RO 

PC 


SEQ 0151 
VAX-11 Bliss-16 V3-555 Page 
SPIDERSUSERS : [NEALE .AZTEC )ZRCHBS. B16;4°C ts)” 


«,E08 


é 

s I 1685 
F 1687 
a RO, 

$ : 1685 
. .* 

; BUF .LOC,« 1701 


; RO,BUF .LOC 
«,NEOF 


: NEOF 

: *,BUF .LOC 1702 
3s *,NEOF 1704 
; BUF .LOC,E0B 

3; NEOF 1710 
3 1712 
Fy 1714 
3 1718 
3 1671 
H 1634 


ZRCH3S 
REV B PATCH 00 


oo ee oe G+ G+ Ge G+ Ge Gs Ge Ge GH Ge Ge Gt Ge Gt GH GH Gt Gs Gt Gt GH Ge Gt Ge GF Gt Gt Gt GH Gt Ge GH GH Gt GF GF 
~ 
~ 
w 
o 


000000 005267 


000004 026727 
000012 101402 
005067 


000020 016700 
000024 000207 


3 Routine Size: 
3 Maximum stack 


8 1760 


J12 


SEQ 0152 
ZRCHBO RC25 DISK FORMATTER 5-Apr-1984 13:46:24 VAX-11 Bliss-16 V3-555 Page 
MODULE DECLARATIONS 11-Jan-1984 13:23:12 SPIDERSUSERS: [NEALE.AZTEC JZRCHBS. B16;4°C (6) 
global routine GET_NSD = !Chooses the next send slot 
Soe 
! Functional Description : 
: This routine will determine which send ring descriptor the port/controller 
Q is polling and returns that dsc slot number to the calling routine. 
H This host program will call this routine each time it wishes to deposit 
2 another command into the command (send) ring. 
! Formal Parameters : 
: none 
! Implicit Inputs : 
: NSD_SLOT : Global storage for the next send descriptor — 
H Stores where the host should place this command for 
: processing by the port/controller. 
! Implicit Outputs : 
H The global storage “Nsd.slot” is updated to the 
: present send slot where the port/controller is polling. 
: Completion Codes : 
i Returns the contents of "Nsd_slot” to the calling routine. 
! S.de Effects : 
g none 
q 
begin 
& 
! Increment the next send descriptor _slot by one 
J 
NSO _SLOT = .NSD_SLOT + 1; 
! Set the slot pointer back to zero if it wraps around to the top of the ring. 
o 
if .NSD_SLOT gtru SND_ALLOCATE - 1 then NSD_SLOT = ZERO; 
o 
: Return the next send descriptor_slot to the caller 
return .NSD_SLOT; 
end; 
-SBTTL GET.NSD MODULE DECLARATIONS 
000000G GET.NSD:: 
NSO.SLOT 3 1748 
000000G 000003 CMP NSD.SLOT, #3 ; 1753 
BLOS 1$ 
000000G CLR NSOD.SLOT 
000000G 1%: MOV NSD.SLOT,RO : 1744 
RTS PC 3 1721 
11 words, Routine Base: ACSCODE + 0150 


depth per invocation: O words 


ZRCHBS 
REV B PATCH 00 


oe @s Gs @+ G+ Ge Ge Ge Ge OF Gs @F Gs GH GF OF OF OF Gs GF GF GF Gt GF Ge GF GF GF Ge Ge GF Gt Gs Ge Gs Gs Ge OF oF 


000004 
000012 
000014 
000020 
000024 


3; Routine Size: 
3 Maximum stack 


026727 
101402 
005067 


016700 
000207 


1800 


Kile 


SEQ sy, 
ZRCHBO RC25 DISK FORMATTER 5-Apr-1984 13:46:24 VAX-11 Bliss-16 V3-555 
MODULE DECLARATIONS 11-Jan-1984 13:23:12 SPIDERSUSERS : [NEALE .AZTEC JZRCHBS. B16;4°C (7) 
global routine GET_NRD = !Chooses the next receive slot 
foe 
! Functional Description : 
: This routine will determine which receive ring descriptor the port/controller 
g is polling and returns that dsc slot number to the calling routine. This 
: host program will call this routine each time it wishes to process another 
$ receive ring descriptor. 
! Formal Parameters : 
g none 
! Implicit Inputs : 
H NRD_SLOT : Global storage for the next receive descriptor slot. 
: Stores where the port should return this commands 
4 response indicator. 
! Implicit Outputs : 
H The global storage “Nrd_slot” is updated to the present receive slot 
: where the port/controller is polling. 
! Completion Codes : 
g Returns the contents of "Nrd_slot” to the calling routine. 
! Side Effects : 
g none 
g 
begin 
! Increment the next receive descriptor _slot by one 
t 
NRO _SLOT = .NRD_SLOT + 1; 
Set the slot pointer back to zero if it wraps around to the top of the ring. 
if .NRD_SLOT gtru REC_ALLOCATE - 1 then NRD_SLOT = ZERO; 
a 
: Return the ext receive descriptor_slot to the caller 
return .NRD_SLOT; 
end; 
-SBTTL GET.NRD MODULE DECLARATIONS 
000000G GET.NRD:: 
INC NRD.SLOT PF 1788 
000000G 000003 4H a : 1793 
000000G CLR NRD.SLOT 
000000G 18: MOV NRD.SLOT,RO 3 1784 
RTS PC F 1761 
11 words, Routine Base: ACSCODE + 0176 


depth per invocation: O words 


Loe 


SEQ yy 
ZRCHBS ZRCHBO RC25 DISK FORMATTER 5-Apr-1984 13:46:24 VAX-11 Bliss-16 v3-555 
REV B PATCH 00 MODULE DECLARATIONS 11-Jan-1984 13:23:12 SPIDERSUSERS: [NEALE .AZTEC )ZRCHBS. B16;4°C fa) 
3 ree} global routine LOAD_OUTSSTD_BUF (CREF _NUM) = !Load out$std_buffer with this command 
3 
3 1803 fee 
3 1804 ! Functional Description : 
3 1805S! The outstanding command buffer "“out$std_buf” is used by 
3 1806 ! this host program to determine if an outstending command 
H 1807 ! issued to the port has been processed yet. This is done 
3 1808 ! by examining the receive flag 'Rec_flg’' in a buffer slot 
3 1809 ! for a'l' which is set by the interrupt service routine 
3 aoee : during response ring interrupts. 
3 1 : 
3 1812 ! This buffer can be looked at as ea window between the port 
3 1813! driver receiving & processing the response envelopes and the 
3 rt : host class driver issuing commands to the port. 
: 
3 1816 ! This routine loads into an empty out$std_buf slot the 
3 rt : following values: 
3 1819 ! 1. This commands reference number. 
3 1820 ! 2. Clears ‘rec_flg' indicating this command is outstanding. 
3 1821 ! 3. Clears out the second word in slot where the returned 
3 aos : envelope address will go. 
: 4 : IMPORTANT NOTE: 
3 1826 ! To quarentee a command loaded into the out$std_buffer will 
; 1827 !: never be lost (i.e. having this routine return a buffer 
H 1828 ! slot a yet received by the interrupt service routine), 
3 1829 ! only the cto_wait (controller time out wait) routine’ is 
3 1830 ! permitted to return a out$std_buf slot to the unused pool 
H 1831 ! Ci,e. by loading a slots first word with #0’ 100000' o°). 
3 1832 ! This routine is therefore guarenteed to return an unused 
3 1833 ! out$std_buffer slot when this unique value of #o' 100000’ 
3 1834 3 is found. To further quarentee this, unique command ref 
3 rts : numbers will never use zero as a reference number. 
7 . 
H 1837 ! Formal Parameters : 
8 pas : REF __NUM This is the unique reference number of this command set to the port. 
° > 
3 1840 ! Implicit Inputs : 
H 1841 ! none 
3 1842 ! 
H 1843 ! Implicit Outputs : 
3 1844 ! none 
Hy 1845 ! 
3 1846 ! Completion Codes : 
; 1847 ! The out$standing buffer slot index where this command was put 
H pod : is routines value and is returned to the caller. 
: . 
H 1850 ! Side Effects : 
; 1651 ! none 
3 18S2 ! 
F 1853 !-- 
1835 
; begin 
F 1856 
F 


ZRCHBS 
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000070 000207 


3 Routine Size: 
; Maximum stack 


Fy 1883 


Mie 


SEQ 0155 
ZRCHBO RC25 DISK FORMATTER 5-Apr-1984 13:46:24 VAX-11 Bliss-16 V3-555 Page i11 
MODULE DECLARATIONS 11-Jan-1984 13:23:12 SPIDERSUSERS: [NEALE .AZTEC )ZRCHBS. B16;4°C (8) 
! Search through the out standing command buffer and look for the first 
! open slot. Return this first slot index to the caller if one is found. 
: If no open slots are found then return an error code. 
ineru i from 0 to REC_ALLOCATE - 1 do !Find the first open slot 
: An open slot is by definition the value #0'100000' in the slots first word. 
aia atest {.i, CMD_WRD] eqlu #0’ 100000’ tIs this slot open 
in 
Out sSTD_BUF (.i, REC_FLG) = FALSE; !Clear the received flag 
OUT$STO_BUF [.i, CMD_REF) = .REF_NUM; tLoad this cmd's ref num 
OUT$STO_BUF [.i, ENV_ADR] = ZERO; !Clear the previous env adr 
return .i; 'Return buffer index to caller 
end; 
o 
! The buffer is full if the code reaches here. This should never happen so 
: report an error for debug purposes. 
ae a RET_STATUS = OBF CODE; !Report an ‘out$std buffer full” error 
3 
.SBTTL LOAD. OUT$STDO.BUF MODULE DECLARATIONS 
000000G LOAD. OUT$STD.BUF : 
JSR Ri, $SAVE2 1801 
CLR R1 | 1863 
1$: MOV R1,RO ; I, 1868 
ASL RO 
ASL RO 
000000G MOV #O0UTS$STO.BUF ,R2 
ADD RO,R2 
100000 CMP (R2),%-100000 
BNE 2s 
100000 BIC #100000, (R2) 3 1871 
000010 MOVB 10(SP),CR2) 3; REF .NUM,« 1872 
000002G CLR OUT$STO.BUF +2(RO) 3 1873 
MOV R1,RO0 ; I, 1870 
RTS PC 
2s: INC R1 2 1863 
000003 CMP R1,03 ; I, 
BLOS 1$ 
002001 MOV #2001 ,R0 3 1881 
000000G MOV RO,RET.STATUS 
RTS PC 3 1801 
29 words, Routine Base: ACSCODE + 0224 


depth per invocation: 4 words 


Nie 


SEQ 0156 
ZRCHBS ZRCHBO RC25 DISK FORMATTER S-Apr-1984 13:46:24 VAX-11 Bliss-16 v3-555 Page 12 
REV 8 PATCH 00 MODULE DECLARATIONS 11-Jan-1984 13:23:12 SPIDERSUSERS : [NEALE . AZTEC ]ZRCHBS.B16;4 (9) 
3 po global routine GET_CMDSREF = !Gets next unique cmd ref number 
3 
3 1886 fee 
3 1887 ! Functional Description : 
3 1868 ! A bit unique non-zero number used to identify host commands. 
3 1889 ! Cless drivers should supply a unique reference number in each 
’ 1890 ! command thet the send to ea DUP server. A cless driver may supply 
3 1891 ! @ zero reference number if it does not need to associate a command 
3 pee | : with its end message. 
; . 
1894! Command reference mumbers must be unique ecross all commands that 
1895 ! ere outstanding on the same connection i.e., — must be unique 
é 1896! across all outstanding commands issued by ae single cless driver 
: 1897 ! (Host) to a single DUP server. The cless driver may re-use ea 
3 1898 ! commands reference number when the command is no longer 
3 1899 ! outstanding -- i.e., after receivi the commands end message or 
3 1900 ! efter re-synchronizing with the server. Command reference 
F 1901 ! numbers need not be unique for commands issued by different class 
3 1902 ! drivers --- i.e. commands issued by different nost or commands for 
3 1903 ! diffeent DUP servers from the same host. Therefore controllers 
3 1904 ! must internally use the combination of a command reference number 
3 1905 ! and the connection on which the command was received as the unique 
3 eset : identifier of an outstanding command. 
ra . 
3 1908 ! This routine will rate e@ unique command reference number and 
3 1909 ! will search the out$standing command buffer to see if already uesd. 
8 1910 ! The first unused unique command reference found will be returned 
3 1911 ! to the calling routine. 
3 1912 ! 
3 1913 ! Formal Paeremeters : 
3 1914 ! none 
8 1915 ! 
8 1916 ! Implicit Inputs : 
3 sci7 8 NXT_CRN This global location stores the next unique cmd 
3 P44 : reference number to be used. 
D . 
3 1920 ! Implicit Outputs : 
3 1921 ! NXT_CRN This global location is loaded with the next 
Fy ‘soe : unigue command reference number. 
3 : 
F 1924 ! Completion Codes : 
8 soe : The contents of .NXT_CRN is returned to the calling routine. 
F : ; 
3 1927 ! Side Effects : 
H 1928 3 none 
; 1929 !-- 
a eer 
3 in 
FY 1932 van 
F} 1933 local 
8 1934 DONE ; 
3 1935 
Fy 1936 .- H 
; cone : Increment the global unique command reference rumber before anything is done. 
F : 
3 1939 NXT_CRN = .NXT_CRN « 1; 
3 


B13 
SEQ 0157 
ZRCHBS ZRCHBO RC25 DISK FORMATTER 5-Apr-1984 13:46:24 VAX-11 Blies-16 V3-555 Pege 13 
REV B PATCH OO MODULE DECLARATIONS 11-Jan-1984 13:23:12 SPIDERSUSERS: (NEALE .AZTEC )ZRCHBS.816;4 (9) 


° 


‘3 
f 


do 


unti 


Repeat generating and searching the —n ing command buffer until a 


unique commend reference number is f 


AK; !Fleg any operator control C's 


Wrap this next command reference number eround 
back to one if it is gres.er then 255 (decimal). 


if .NXT_CRN gtr 255 then NXT_CRN = 1; 
OONE = TRUE; !Clear the all done indicator flag 


° 


Now search the out$std_buffer for this command 
reference number. If not there then done stays 
true and the loop will end else increment to the 
next unique command ref number and make done false 
to continue the loop. 


incru i from 0 to REC_ALLOCATE - 1 do 'Search buffer for this cmd ref num 
if .OUTSSTO_BUF [.i, CMO_REF) eqlu .NXT_CRN !Does it already exist 
then 


in 'It elready exists 
NXT_CRN = .NXT_CAN ¢ 1; iTry the next sequential cmd ref num 
DONE = FALSE; !Make code loop again 
exitloop; tExit this iner loop 
end; 


end 
1 .OONE; tRepeat loop until done 


; Return the unique command reference number to the caller. 
4 
return .NXT_CRN; 


end; 


000001 
000000G 


-SBTTL GET.CMDSREF MODULE DECLARATIONS 
GET.CMOSREF:; 
MOV R1,-(SP) 


3 
INC6 NXT.CRN : 

1%: TRAP 22 3 
MOV 01,R1 3 

3 

3 


RO I 
000000G 2s: CMPB * laaaaaiprnai certiahieatae e(T),¢ 


ZRCHBS 
REV B PATCH 00 


; Routine Size: 
3; Maximum stack 


3 1984 


ZRCHBO RC25 DISK FORMATTER 
MODULE DECLARATIONS 


000004 38; 
000014 
4$;: 
000000G 
27 words, Routine Base: 


depth per invocation: 3 words 


5-Apr-1984 13:46:24 
11-Jan-1984 13:23:12 


NXT.CRN,RO 
(SP)+,R1 
PC 


ACSCODE + 0316 


VAX-11 Bliss-16 v3-555 


SEQ 0158 
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e,I 
I,¢ 


DONE 


1966 


1977 
1931 
1884 
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ZRCHBO RC25 DISK FORMATTER 55-Apr-1984 13:46:24 VAX-11 Bliss-16 V3-555 ege i 
11-Jan-1964 13:23:12 SPIDERSUSERS: [NEALE .AZTEC J)ZRCHB5.816;4 (10, 


MODULE DECLARATIONS 
globel routine DECODE 


foe 


2. An error 


routine which 
“RET_STATUS". 


command comes 
code. This is 
is equal to 1. 


An appropr iate 
error. 


Formal Paeremeters : 
none 


Implicit Inputs : 
RET_STATUS: 


Implicit Outputs : 
none 


Completion Codes : 
none 


Side Effects : 


begin 


ocal 
SA_VALUE; 


D135 


novalue « !Decodes failing SA reg date 


! Functional Description : 

Due to the implimentation of the DUP and UQ Port protocol there 
ere two levels at which an issued command to a port/controller 
can fail and they ere: 


1. The issued command can time out. 


can be posted in SA register bit 15 by the port to 


report en error. 

3. The issued commend to the port/controller can be executeco 
correctly without any errors but the response packet status 
Field could have an error or status other than success posted. 


These errors or stetus's returned ere ell returned to the host 
i queved the 


DUP commend vie the global storage 


The host to port/controller commun ications 
connection having the highest priority (ie. if tne SA Reg error 
bit is set the DUP interrupt routine returns ea PFE_CODE and this 
code is pessed up to the calling host routine with out being 
intercepted by any routine on the way up). 


This routine will then be called when the return from a queued 


back with an error code or non successfull status 
by definition when bit 0 in the returned status 


recovery action will be done for each individual 


Stored in this global storage is the returned error 
code or non-successful status code from a queued 
command. 


All formatter errors are fatel, therefor after execution 
of this routine the RC25 controller is initialized 
aborting any 0M code running in the controller. 


'Save SA register fatal error code 


j SEQ 0160 
ZRCHBS ZRCHBO RC2S DISK FORMATTER 5-Apr-1984 13:46:24 VAX-11 Bliss-16 v3-555 Page 16 
REV B PATCH 00 MODULE DECLARATIONS 11-Jan-1984 13:23:12  SPIDERSUSERS: [NEALE . AZTEC JZRCHBS.B16;4°¢ 10) 


2043 te 
2044 ! Use the contents of "RET_STATUS” to select what type error or non-successful 
2045 ! status code is to be processed. 

e. 


2048 selectoneu .RET_STATUS of 
2049 set 


“Communication erea initialize” error code 


not init the com erea in the host memory efter 


H 
: 
: 

2053 ! This error code indicates that the port did 
, 
! step 2 of the initialization sequence. 
’ 


2058 (CIE_CODE) : !Code equals #0'01' 
mn 
2060 PRINTB (.EMSG_STRUCT [MSG4]); 
end; 


: “Port/Controller time out” error code 


: 


: Port/Controller timed out after the specified time out interval. 


2068 (CTO_CODE) : !Code equals #o' 11° 
n 

PRINTS (.EMSG.STRUCT [MSG21}); 

end; 


: "Port fatel error” code 


The error bit in the SA Register was set when examined in the DUPSI_ SERVICE 
! routine. This error indicates ea Port fatal error code. 


g 


2079 [PFE _CODE) : !Code equals #o'21' 
in 
2081 SA VALUE * .RC25_ADDR (RCSA, ERR_CODE); !Get error code from SA register 


2083 ! Is the error code within tne RC25 error code range, or is it 
2084 ! an generic, all controllers, error code? 


: 


2087 if .SA_VALUE gequ 200 
2088 then 


in 
2090 PRINTB €.RC_STRUCTURE [.SA_VALUE - 200)); !RC25 error code range 
end 
2092 else 


in 
2094 PRINTB ( .PFE_STRUCT [.SA_VALUE)); !Generic error code 
2995 end; 


2097 end; 


Se Ge Ge Ge Ge Ge Ge Ge Ge Gs Ge GH Ge Ge GH GH Gs Ge Ge Ge Ge Ge Ge Gt Ge GF Ge GF Gs Ge Gt GH Ge Gt Gt Ge Gs GH GF Ge Ge GH Gs Gs Gs GF Gs Gs Ge Gs Gs GF Oe Gs oe OF oF 
3 
s 
°o 


ris 


SEQ 0161 


ZRCHBS ZRCHBO RC25 DISK FORMATTER 5-Apr-1984 13:46:24 VAX-11 Bliss-16 v3-555 Page 17 
REV B PATCH 00 MODULE DECLARATIONS 11-Jan-1984 13:23:12 SPIDERSUSERS: [NEALE .AZTEC )ZRCHBS.816;4 (10) 
3 ted ! "Return status error” code 

3 H 

FY tee] ! This indicates that a non-successful return status code was returned from an issued command. 
3 H 

Fy 2103 

3 2104 (RSE_CODE) : !Code equals so’ 31' 
3 2105 vay Ma 

8 tee PRINTB (.EMSG_STRUCT [MSGO)); 

; 8 

3 ty : Look at the UQPORT connection ID field to determine the type of response 
; . 

3 2110 

3 2111 if .RET_ENSAD (CONN_ID) eaqlu DUP 

: 2112 then 

Fy 2113 genie 

: 2114 PRINTB (.SOUP_STRUCT [.RET_ENSAD [STATUS)])); 

3 2115 end 

3 2116 else 

3 2117 in 

3 2118 PRINTB (.SMSCP_STRUCT [.RET_ENSAD [STA_CODE)]); 

8 2119 end; 

3 2120 

3 2121 end; 

FY 2122 : 

8 tnt : "Port Portocol violation” error code 

3 H 

3 a : A protocol violation error was detected during host processing of an issued command. 
Fy 2127 

8 2128 (PVE_CODE) : !Code equals so 41’ 
3 2129 po Me 

Fy 2130 PRINTB (.EMSG_STRUCT [MSG1)); 

8 2131 end; 

8 2132 H 

3 Ey ! “Remote program died” error code 

3 : 

; 2135 ! This indicates that the remote program running 

F 2136 ! im the OM machine did not responded within the 

3 2137 ! designated time out interval and that the progress 

8 2138 ! indicetor was not increase after subsiquent time out 

; 2139 ! delays. It is essumed that the remote program is dead 

3 2140 ! and is treated as ea fatal error. 

Fy 2141 : 

F} 2142 

: 2143 {RPD_CODE) : !Code equals #o0'51' 
Fy 2144 oN 

8 2145 PRINTB (.EMSG_STRUCT [MSG2)); 

ry 2146 end; 

3 2147 $ 

8 2148 ! “Port to host synchronious error” code 

Fy 2149 $ 

FA 2150 

8 2151 (PSE _CODE] : !Code equals so'61' 
8 2152 pega 

Fy 2153 PRINTB (.EMSG_STRUCT [MSG5)); 

3 

Fy 


2154 end; 
6 


ZRCHBO RC25 DISK FORMATTER 


ZRCHBS 
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: "Message length error” code 


[MLE _CODE) : 


in 
PRINTB (.EMSG_STRUCT [MSG6]); 
end; 


“Unknown end code” error code 


(UEC_CODE) : 


mn 
PRINTB (.EMSG_STRUCT [MSG7)); 
end; 


"Adaptor purge request” error code 


[APR_CODE]} : 


in 
PRINTB (.EMSG_STRUCT [MSG8)); 
end; 


§ 
: “Unknown interrupt” error code 


[UIN_CODE} : 


in 
PRINTB (.EMSG_STRUCT [MSG9]); 
end; 


° 
: “ATTENTION MSG ENOCODE” error code 


[ATN_CODE ): 


paler 
a € .EMSG_STRUCT [(MSG12)); 
ry 


“COMMAND MSG ENDCODE” error code 


(CMD _CODE) : 


roy 
PRINTB (.EMSG_STRUCT [(MSG13)); 
HY 


“SERIOUS EXCEPTION” error code 


(SEX _ CODE) : 


oy We 
PRINTB (.EMSG_ STRUCT [(MSG14]); 
é 


a 
* “INVALID COMMAND” error code 


G13 


5-Apr-1984 13:46:24 
11-Jan-1984 13:23:12 


!Code equals so'71' 


!Code equals so0'101' 


!Code equals so' 201’ 


!Code equals so' 301’ 


'Code equals so 401’ 


!Code equals so'501' 


!Code equals #0'601' 


SEQ 0162 
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ZRCHBS 


H13 


ZRCHBO RC25 DISK FORMATTER 5-Apr-1984 13:46:24 


REV B PATCH 00 MODULE DECLARATIONS 11-Jan-1964 13:23:12 


oe Ge Ge Gf Ge Ge Gt Ge Gs Gt Ge Ge Ge Ge Ge GH GF Ge Ge GH Ge Gs Gs GH Gs GF GF Ge GF Gs GF Gs GF Gs GF «+ OF OF Ge GH OF GF OF OF Ge Gs Ge GF Gs GF Ge GF OF OF Ge Oe oF 


2213 
2214 


e 
(IvC_CODE) : !Code equals #0’ 701’ 


4 Ma 
se ie C.EMSG_STRUCT [MSG15]); 
: 


“UNKNOWN MESSAGE TYPE” error code 


C[UMT_CODE] : !Code equals #o0' 1001’ 
n 
Paint € .EMSG_STRUCT [MSG16]); 


“UNKNOWN MESSAGE NUMBER” error code 


CUMN_CODE) : !Code equals #0'4001' 
mn 
Paint C.EMSG_STRUCT [(MSG19]); 
; 


Out standing buffer slots are all filled up 


(OBF _CODE) : 'Code equals so' 2001’ 
in 
Paints (..EMSG_STRUCT [MSG17]); 
é 


Out standing command buffer out of sync error 


(OSE_CODE) : !Code equals so' 3001’ 
n 
PREINTB (.EMSG.STRUCT [¥SG181), 
end; 


File read error from local load media 


(FRE _CODE) : !Code equals #0'5001' 
mn 
Paint €.EMSG_STRUCT [MSG20)]); 
3 


Illegal FCT file length 


CILL_FCT) : !Code equals #0'6001' 


mn 
PRINTB (.EMSG_STRUCT [MSG22)); 
end; 


SEQ 0163 
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: This is here to trap any unknow return status codes sent to this routine. 


ZRCHBS 
RE 


ZRCHBO RC25 DISK FORMATTER 


VB PATCH 00 MODULE DECLARATIONS 


oe of oF GF GF GF Ge GF Ge GF Os oF aH oF oF 


(otherwise) : 


113 


5-Apr-1984 13:46:24 
11-Jan-1964 13:23:12 
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'Code equals non of the above 


pater 
PRINTB (.EMSG_STRUCT [MSG3)); 


end; 
tes; 


a 
! All errors are fatel so 


init the RC25 and jump to the clean-up 


: code section to abort "hie units format. 


RC25_ADDR [RCIP, RC_ALL) = ONES ; 


WRT_RC25 (RCIP, ONES); 


DOCLN; 
end; 
. SBTTL 
000000G DECODE: : JSR 
CMP 
000000G MOV 
000001 CMP 
BNE 
000010G MOV 
000001 MOV 
MOV 
TRAP 
BR 
000011 1$: CMP 
BNE 
MOV 
000001 MOV 
MOV 
TRAP 
BR 
000021 2s: CMP 
BNE 
000000G MOV 
000002 000002 MOV 
000002 MOV 
174000 BIC 
000310 CMP 
BLO 
ASL 
177160G MOV 
000001 MOV 
MOV 
TRAP 
BR 
3$: ASL 
MCV 
000001 MOV 
MOV 
TRAP 
BR 
000031 4$: CMP 


tInit the controller 
tInit the controller 


!Jump to the clean-up code section 


DECODE MODULE DECLARATIONS 
R1, $SAVE2 

-( SP), -(SP) 

RET.STATUS,R1 

+ 

EMSG. STRUCT +10, -( SP) 

#1, -(SP) 


#1, -(SP) 


ae 
RC25.ADOR ,RO 
2(RO),20SP) 
2(SP),RO 
#174000 ,RO 
RO, 0310 

3% 

RO 

RC. STRUCTURE -620(RO), -( SP) 
#1, -(SP) 
SP,RO 

14 

17% 


RO 
PFE .STRUCTCRO), -(SP) 
+ athe 


SP, 


SP, 


@,RC$S.REG 
RC$S.REG, SA. VALUE 
@, SA. VALUE 
SA. VALUE, 


SP, 


SEQ —— 


ZRCHBS 
REV B PATCH 00 


016746 
012746 
0600 


ZRCHBO RC25 DISK FORMATTER 


MODULE DECLARATIONS 


000000G 
000001 


000000G 
000001 


000016 
177740 


000001 


000002G 
000001 


S$: 


6$: 
78; 


9%: 


108: 


11$: 
128: 


J13 


5-Apr-1984 13:46:24 
11-Jan-1984 13:23:12 


EMSG. STRUCT, -( SP) 
#1, -(SP) 
SP ,RO 


14 

RET .ENSAD,R2 
R2,RO 
3(RO), #2 

S$ 

16(R2),RO 
RO 


SOUP .STRUCTCRO), (SP) 
#1, -(SP) 

SP,RO 

14 


6$ 
16(R2),R2 
ee 


2 
SMSCP ..STRUCTCR2),(SP) 
#1, -(SP) 


8$ 

EMSG. Ol (SP) 
#1, -(SP) 

aoe 


243 

R1,051 

93 

EMSG. STRUCT +4, -( SP) 
#1, -(SP) 


SP.RO 
14 


26% 

R1, 061 

10$ 
EMSG.STRUCT +12, -( SP) 
@1,-CSP) 


EMSG.STRUCT +14, -( SP) 
#1, -(SP) 


14 

30$ 

> Flan 

EMSG. STRUCT +16, -( SP) 


#1, -(SP) 
SP ,RO 


VAX-11 Bliss-16 v3-555 
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SP, 


RET.ENSAD, @ 


SP, 


SP, 


SP, 


SP,« 


SP ,¢ 


SP ,« 


2106 


2114 
2111 


2114 


2111 
2118 


2105 
2048 


2130 


2048 


2145 


2048 


2153 


2048 


2161 


2038 


2169 


ZRCHBS 
REV 8 PATCH 00 


ZRCHBO RC25 DISK FORMATTER 
MODULE DECLARATIONS 


13$: 
000201 14%: 
000020G 
000001 
000301 158: 
000022G 
000001 
000401 16$: 
000030G 
000001 

17$: 
000501 18$: 
000032G 
000001 
000601 19$: 
000034G 
000001 
000701 208: 
000036G 
000001 
001001 21%: 
000040G 
000001 

22s: 
004001 23%: 
000046G 
000001 


K13 


5-Apr-1984 13:46:24 
11-Jan-1984 13:23:12 


14 

33$ 

R1,@201 

15$ 
EMSG.STRUCT +20, -( SP) 
ae 


#1, -(SP) 
i?) 


#1, -(SP 


#1, -(SP) 
0 


#1, -(SP) 
0 


EMSG. STRUCT +36, -( SP) 
#1, a ) 


#1, -(SP) 
SP,RO 


EMSG. STRUCT +46, -( SP) 
#1, -(SP) 

SP ,RO 

14 
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3 SP, 


° SP,# 


3; SP, 


3 SP, 


3; SP,« 


2048 


2177 


2048 


2185 


2048 


2193 


2048 


2201 


2048 


2209 


2048 


2217 


2048 


2233 


ZRCHBS 
REV B PATCH 00 


000700 000456 
000702 020127 
000706 001007 
000710 016746 
000714 012746 

010600 


; Routine Size: 
; Maximum stack 


; 2285 


ZRCHBO RC25 DISK FORMATTER 
MODULE DECLARATIONS 


L135 
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243: BR 33$ 
002001 25s: CMP R1,@2001 
BNE 27s 
000042G MOV EMSG.STRUCT +42, -( SP) 
000001 MOV #1,-CSP) 
MOV SP RO 
TRAP 14 
268: BR 33$ 
003001 27s: CMP R1,03001 
BNE 29$ 
000044G MOV EMSG ..STRUCT +44, -( SP) 
000001 MOV #1,-CSP) 
MOV SP ,RO 
TRAP 14 
28%: BR 33$ 
005001 298: CMP R1,95001 
BNE 31$ 
000050G MOV EMSG.STRUCT +50, -(SP) 
000001 MOV #1,-(SP) 
MOV SP ,RO 
TRAP 14 
308: BR 33$ 
006001 31$: CMP R1, 06001 
BNE 32$ 
000054G MOV EMSG.STRUCT +54, -( SP) 
000001 MOV #1,-CSP) 
MOV SP ,RO 
TRAP 3 
BR 33$ 
000006G 323: MOV EMSG .STRUCT +6, -( SP) 
000001 MOV #1,-CSP) 
MOV SP,RO 
TRAP 
177777 000004 33$: MOV @-1,4(SP) 
177777 MOV #-1,RO0 
000000G - +m RO, BRC2S. ADDR 
000010 ADD e10, SP 
RTS PC 
282 words, Routine Base: ACSCODE + 0404 


depth per invocation: 10 words 
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: +4] global routine DUPSI_SERVICE : INT_LNKSTYP novalue = !Signals receive queue entry 
3 
3 2288 t+ 
8 2289 ! Functional Description : 
3 2290 ! The transmission of a message will result in a host interrupt if and 
3 2291 only if interrupts were armed suitably during initialization and one 
3 ote | : of the following conditions has been met: 
’ 2294 ! 1. The message was a command with F=1 and the port's fetchi it 
: 2295 ! caused the command ring to transition from full to not-full. 
Fy 229% ! C This interrupt means that the host may place another command 
3 2297 ! in the ring.) 
3 2298 ! 
3 2e99 ! 2. The message was a response with F=1 and the port's depositing 
3 2300 ! it caused the response ring to transition from empty to not- 
3 2301 ! empty. (This interrupt means that there is a response for 
3 toe : the host to process. ) 
: 2304 ! 3. The port is interfaced to the host vie a bus abapter and a 
ry 2305 ! command requires the port/controller to re-access a given 
3 2306 ! location during data transfer. (This interrupt means that 
3 2307 3: the port/controller is requesting the host to purge the 
3 toe : indicated chanel of the bus adapter. ) 
3 : 
H 2310 ! This interrupt service routine is entered when any of the above 
H 2311 ! conditions occure. When entered it will be determined what type 
3 ete : interrupt was executed and take the necessary action. 
H 2314 ! Formal Parameters : 
3 2315 2 none 
3 2316 ! 
3 2317 ! Implicit Inputs : 
8 2318 ! Nrd_slot: A global flag which points to the next receive descriptor 
F 2319 3: slot where the port/controller should be polling on and 
F tty : where to expect the first response packet to process. 
Fy 2322 |! Implicit Outputs : 
8 2323 3 Ret_status: ae Jee fleg is the mechinism by which these DUP 
3 2324 ! Port protocol routines pass status code back to 
: 2325 ! sy the host routine's requesting communications over 
ry 2326 ! the established connections. The status returned is 
F 2327 3 decoded by the caller to determine if an error or bad 
3 tae : response packet status was discovered. 
’ H 
8 2330 ! Out $std_buf: This buffer is used to save all commands issued to the 
F 2331 !: port and are considered outstanding when in this buffer. 
8 2332 ! This interrupt service routine will indicate this command 
; 2333 ! is nolonger outstanding by setting the rec_flg in the 
8 coe : slot matching this response envelope command ref number. 
3 a 
3 2336 ! Completion Codes : 
8 2337 ?: none 
3 2338 ! 
Fy 2339 ! Side Effects : 
F 2340 ! none 
3 2341 !-- 
F 
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; 2343 begin 
3 2344 
’ 2345 local 
: 2346 TEMP, tHolds nrd_slot + 1 reference 
3 2347 FOUND_CMD, !Found command flag 
; toed REF _NUM; !Stores response packets cmd ref number 
3 
3 2350 te 
; 2351 ! Before this interrupt service routine does anything 
3 2352 ! look at the SA register for any port fatel errors 
3 2353 ! posted. If there are errors posted then report the 
H 2354 ! error and kick the bucket. 
3 2355 !- 
3 2356 
: 2357 if .RC25_ADDR [RCSA, ERR_BIT) !Are there any errors posted 
; 2358 then 
3 2359 in 
3 2360 RET_STATUS = PFE_CODE; tIndicate the error type 
3 2361 DECODE (); !Decode and print the error 
3 2362 return; !Just for show. Decode will kill it 
3 2363 end; 
3 2364 
3 2365 te 
3 oat ! See what kind of interrupt got us here. 
H 2 
3 2368 ! We could nave a: 
3 2369 : 
3 2370 H 1. Response ring transition interrupt. 
3 2371 : 2. Send ring transition interrupt. 
3 2372 H 3. A adaptor purge request interrupt (which is 
; 2373 : illegal running under the PDP-11 Diagnostic 
; 2374 : supervisor and is flagged as a fatal controller 
3 2375 : error.) 
3 2376 $ 4. Or an unknown interrupt not known by this program 
$ eore H which also results in a fatal controller error. 
A | 
3 2379 !- 
8 2380 
F 2381 H 
Fy 2382 
3 2383 ! Check to see if we get here because of a response ring 
3 2384 ! transition interrupt. This is more likely to be the 
8 coon : most frequent interrupt so check it first. 
; . 
: 2387 
3 2388 if .HEAD_AREA [RSP_INT] 
Hy 2389 then 
H 2390 in 
8 eons GE -NRD (); !Get the resp slot location to process 
3 : 
3 2393 ! Check the host protocol for being out of sequence 
3 2394 ! with the controller by making sure that this slot 
H 2395 ! is owned by the host leseaine that there is a resp 
3 2396 ! envelope at this ring slot to process. 
; 2397 : 
H 2398 
; 


2399 if ,RECEIVE RING [.NRD_SLOT, OWN_BIT] nequ HOST_OWNED !Is this owned by host 
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’ 2400 then 
Fy 2401 begic tHost/port ie cut of sequence 
Fy 2402 RE P ae = PSE CODE; {Load e “Port syne error” code 
3 2403 DECODE ( tReport the error end kick the bucket 
Fy 2404 return; {Just for show Decode kills it 
Fy 2405 end; 
3 2406 
; 2407 $s 
3 2408 ! Per DUP protocol once interrupted due to a response ring 
8 2409 : interrupt, the host code should process ell response packets 
3 2410 ! found in the response ring. This while loop will continue 
3 2411 ! to process the response packets in the response ring until 
3 24le ! none remain. 
8 2413 !- 
3 2414 
Fy ates while TRUE do !Process ell response packets in ring 
FY mn 
3 ryt B AK; tLook for control c's 
Q . 
FY 2419 ! Load the Reference structure “Ret _entad” with the address 
8 2420 ! of this response envelope to process (The minus #o'4' is 
3 2421 ! done to address the first word in the envelope packet 
8 Sect : and is equal to liccetion “text-4"). 
; o 
3 ad RET_ENSAD = ( .RECEIVE_RING [.NRD_SLOT, LO_ENSAD)) - So'4’; 
3 2426 te 
8 a : Test the end packet for its possible three end types. 
3 2429 ! End ey opcodes (elso celled endcodes) are formed by adding the ~ 
3 2430 ! message leg to the command opcode. For exemple, a READ commands end 
3 2431 ! message contains the value OP.RED + OP.END in its opcode field. Tne Invalid 
3 2432 ! command end contains just the end message flag (i.e.. OP.END) in 
F 2433 ! its opcode field. he serious exception opcode shown above (i.e. OP.SEX + 
3 oa $ OP.END) in its opcode field. 
3 H 
3 2436 ! Commands opcode bits 6 and 7 indicate the type of message (command, end or 
H 2437 § attention message. Command opcodes bites 3 thr 5 i: dicate the command 
; 2438 ! category Cimmediate, sequential or no-sequential) and whether or not the 
8 eae : command includes e buffer descriptor. 
; ean ! See MSCP document appendix “A-1 NOTE:” for more information on this topic. 
; '. 
Fy 2443 
$ 2444 selectoneu .RET_ENSAD [TYPSMSG] of !Select the endpacket size 
Fy 2445 set 
3 2446 
3 2447 (ENDSMSG) : 'Ie this an end code packet 
3 2448 begin 
3 2449 
8 2450 Hi 
3 2451 ! Select off of the endcode to make sure the communications 
Fy 2452 ! mechanism transfered the comrect number of byte for this 
3 2453 ! end pecket. If this mumber of bytes transfered is not 
$ 2454 ! correct for the commands end packet then load the error 
3 2455 ' code into return stet.s, call decode to report the 
8 2456 ! error and kick the bucket and die. This endcode is formed 
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! by adding the end message flag #0'200' to the commands 
: opcode. 


sete -RET_ENSAD [ENOCODE] of 
se 


, 
! “RECEIVE DATA” command end packet 
7 


[EOP_RED) : 
begin 
oF net ee (MSG_LENGTH) nequ ESZ_RED 'Is the byte count correct 
in 

Re? STATUS = MLE_CODE; [Return eo “message length error code” 
DECODE (); 'Report the error and kick the bucket 
return; !Just for show. Decode kills it 
end; 

end; 


“SEND DATA” command end packet 


(EOP _SED) : 
begin 
lai oe me [MSG_LENGTH] nequ ESZ_ SED 'Is the byte count correct 
in 

Re? STATUS * MLE_CODE; !Return @ “message length error code” 
DECODE (); 'Report the error and kick the bucket 
return; tJust for show. Decode kills it 
end; 

end; 


o 
:* GET DUST STATUS” command end packet 


(EOP_GDS) : 
begin 
et (MSG_LENGTH) nequ ESZ_GDS tIs the byte count c ect 
in 

Re? sratus * MLE_CODE; !Return a “message length error code” 
DECODE (); tReport the error and kick the bucket 
return; 'Just for show. Decode kills it 
end; 

end; 


Q 
: “EXECUTE SUPPLIED PROGRAM” command end packet 
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3 2514 

3 2515 {EOP_ESP) : 

a = 

ry 

3 2518 if .RET_ENSAD [(4SG_LENGTH]) nequ ESZ_ESP !Is the byte count correct 
’ 2519 then 

3 2520 begin 

3 2521 RET _STATUS = MLE_CODE; !Return a “message length error code” 

3 2522 DECODE (); tReport the error and kick the bucket 

’ 2523 return; !Just for show. Decode kills it 

3 2524 end; 

3 2525 

3 2526 end; 

3 2527 H 

Fy Sess : "EXECUTE LOCAL PROGRAM” command end packet 

3 ! 

FY 2530 

3 2531 (EOP _ELP) : 

; 2532 begin 

3 2533 

3 2534 if .RET_ENSAD [MSG_LENGTH) nequ ESZ_ELP !Is the byte count correct 
3 2535 then 

8 2536 poe's 

3 2537 RET_STATUS = MLE_CODE; !Return a “message length error code” 

8 2538 DECODE (); tReport the error and kick the bucket 

3 2539 return; 'Just for show. Decode kills it 

3 2540 end; 

3 2541 

3 2542 end; 

3 2543 H 

Fy 2544 $ “ABORT PROGRAM” command end packet 

Fy 2545 H 

3 2546 

3 od (EOP _ABT) : 

; mn 

3 2549 ettes 

; 2550 if .RET_ENSAD ([MSG_LENGTH) nequ ES7_ABT tIs the byte count correct 
3 2551 then 

3 2552 begin 

3 2553 RET _STATUS = MLE CODE; !Return a “message length error code” 

8 2554 DECODE (); tReport the error and kick the bucket 

3 2555 return; !Just for show. Decode kills it 

8 2556 end; 

8 2557 

3 2558 end; 

3 2559 H 

8 caee : "SET CONTROLLER CHAR” command end packet 

; . 

3 2562 

3 2563 {EOP_SCC) : 

3 2564 begin 

8 2565 

Fy 2566 if ,RET_ENSAD [MSG_LENGTH]) nequ ESZ SCC tIs the byte count correct 
Fy 2567 then 

3 2568 pepia 

F 2569 RET _STATUS = MLE _CODE, !Return a “message length error code’ 

F 


2570 DECODE (); tReport the error and kick the bucket 
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2571 return; 'Just for show. Decode kills it 

2572 end; 

2573 

2574 end; 

2575 H 

257 ! “ON LINE” command end packet 

257? : 

2578 

2579 [EOP_ONL) : 

sa oi 

2582 if .RET_ENSAD [MSG_LENGTH) nequ ESZ_ONL !Is the byte count correct 

2583 then 

2584 bopin 

2585 RET_STATUS = MLE_CODE; !Return a “message length error code” 

2586 DECODE (); Report the error and kick the bucket 

2587 return; !Just for show. Decode kills it 

2588 end; 

2589 

2590 end; 

2591 H 

2592 ' The “OP_END” end message flag all by its self tells 

2593 . us that the controller is Flagging us of an illegal 

2594 ! command sent over the connection. Error and kick the 

2595 ! bucket. 

2596 H 

2597 

2598 ([OP_END) : 

2599 pog‘a 

2600 RET_STATUS = IVC_CODE; 

2601 DECODE (); 

2602 return; 

2603 end; 

2604 : 

2605 ! The controller is telling us that a serious exception 

2606 ! has occured. Error and kick the bucket. 

2607 ' 

2608 

2609 (EOP _SEX) : 

2610 aee'e 

2611 RET_STATUS = SEX_CODE; 

2612 DECODE (); 

2613 return; 

2614 end; 

2615 : 

te: : Unknown end packet endcode type 

2618 

2619 (otherwise) : 

2620 eeg'a 

2621 RET_STATUS = VEC_CODE; tReturn an “unknown end code” 

2622 DECODE (); tReport the error and kick the bucket 

2623 return; 'Just for show. Decode kills it 

2624 end; 

2625 tes; 

2626 
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3 2628 ! The port/controller sent the endpacket over the connect ion 
3 2629 ! with out any problems. Now find this commands owner in the 
3 2630 ! out$standing buffer and ‘ndicate to them that the command 
3 pore) ! has been received. 
3 i 
F ory REF NUM = .RET_ENSAD [(CMD_LREF ); !Get this rec packets cmd ref number 
3 2635 ! Search the outstanding command buffer for this commands 
3 ony : reference number. 
; . 
: 2638 ! If found, load the buffer location with the ret_enstad 
H 2639 ! and set the received flag to signify that this command 
8 oan ! has been received by this interrupt service routine. 
3 41 H 
8 os FOUND_CMD = FALSE; !Clear the found cmd flag 
3 
3 ne incru i from 0 to REC_ALLOCATE - 1 do !Search the buffer 
3 
: 2646 if .OUTSSTD_BUF [.i, CMD_REF]) eqlu .REF _NUM tIs this the comd ref 
8 2647 then 
3 2648 in 
F 2649 OUT$STO_BUF [.i, REC_FLG) = TRUE; tIndicate command is received 
3 2650 OUTSSTO_BUF [.i, ENV_ADR] = .RET_ENSAD; 'Return envelope adrs 
3 2651 FOUND_CMO = TRUE; tIndicate it was found 
Fy 2652 exitloop; tExit the loop 
3 2653 end; 
3 2654 
3 2655 H 
3 2656 : If the search through the command ref 
; 2657 ! buffer failed to find this commands cmd 
Fy 2658 ! reference number then die. 
‘ 2659 ‘ 
3 2660 
8 2661 if not .FOUND_CMD 
8 266-¢ then 
Fy 2663 pea's 
8 2664 RET_STATUS = PSE_CODE; 
: 2665 DECODE (); 
3 2666 return; 
8 2667 end; 
3 2668 
3 poet end; !End of ENDSMSG processing 
; : 
F 2671 ! The set controller characteristics command 
3 2672 : disabled the reporting of attentions messages 
3 thy !' so treat this es a fatal error and die. 
; H 
Fy 2675 
3 2676 {[ATTSMSG) : !Attention end message type 
3 2677 peg'e 
3 2678 RET_STATUS = ATN CODE; 
5 2679 DECODE (); 
Fy 2680 return; 
Fy 2681 end; 
3 2682 : 
$ 2683 ! It doesn’t make any since for this cnd message 
F 2684 ! packet not to have the end message flag added 
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3 2685 ! to this command opcode as treat it as a fatal 
’ 2686 ! error and die. 
3 2687 ! 
3 2688 
3 2689 (CMD$MSG) : 
8 2690 in 
Fy 2691 RET_STATUS = CMD_CODE; 
3 2692 DECODE (); 
3 2693 return; 
3 2694 end; 
3 2695 : 
; 2696 ! This end code type is of unknown origin so 
3 2697 ! treat is as a fatal error and die. 
3 2698 : 
3 2699 
3 2700 (otherwise) : 
3 2701 penie 
3 2702 RET_STATUS = VEC_CODE; !Unknown message type code received 
3 2703 DECODE (); 
3 2704 return; 
3 2705 end; 
Hy 2706 tes; 
3 2707 
3 2708 : 
3 2709 ! Before we leave put this receive envelope message length 
3 2710 ! field back to the envelope size, in bytes (Per UQ Spec). 
3 2711 ! This size does not include the 2 UQ's words preceeding the 
8 hy : command text area. 
3 ng RET_ENSAD ([MSG_LENGTH] = RB_SIZE#2; 
3 H 
8 2716 ! Return this receive slot descriptor back to 
8 ah ! the port to fullfill my part of the protocol. 
; H 
3 4834 RECEIVE _RING [.NRD_SLOT, OWN_BIT) = PORT_OWNED; 
; H 
; 2721 ! Look at the next response ring descriptor. If its 
3 2722 ! host owned then continue this process else exit the 
H 2723 ! loop. First see if the ring reference has wrapped 
3 2724 ! around to the top of the ring. 
3 2725 : 
8 2726 
3 e eae if .NRD_SLOT + 1 gtru REC_ALLOCATE - 1 tHas the ring ref wrapped around 
FH} then 
Fy 2729 TEMP = ZERO 'Wrap it back to zero dsc slot 
H 2730 else 
3 eres TEMP = .NRO_SLOT «+ 1; tLook at the next seq dsc slot 
s 2733 H 
3 hs : Now see if the next receive descriptor slot is nost owned. 
7 . 
3 2736 
3 are: if ,RECEIVE_RING [.TEMP, OWN_BIT}) eqlu HOST_OWNED !Are we done yet 
; then 
3 2739 GET_NRD () !Get the next resp desc to process 
Fy 2740 else 
F 


2741 exitloop; 'No more to do so exit 
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3 2742 
3 2743 end; !End of WHILE LOOP 
3 2744 
: 2745 : 
3 2746 ! All response ring descriptors have been processed with out any 
3 2747 ! detected errors so return to the main host code with an pass 
: dine ! return code. But before we go clear out the interrupt indicators. 
3 : 
3 2750 HEAD_AREA [RSP_INT) = ZEROS; !Clear the interrupt indicator location 
3 e751 HEAD_AREA (CMD_INT) = ZEROS; !Clear out the indicator 
Fy 2752 return RET_STATUS = PAS_CODE; ‘Return ea “pass code 
8 BE end; 
3 
3 2755 §eaeeeennececeeeseaaasEND OF RESPONSE RING INTERRUPT PROCESSINGseasecccccceanecaces 
3 2756 
Hy 2757 §6 
3 2758 ! A send ring transition interrupt could happen if at 
3 2759 ! some date only one descriptor slot is allocated for 
Fy 2760 ! commands. 
Hy 2761 H 
3 2762 ! Clear the interrupt indicator if this is true and do 
3 2763 ! a return with no errors. 
3 2764 !- 
3 2765 
: 2766 if .HEAD_AREA (CMD_INT) tIs this a com ring transition interrupt 
Fy 2767 then 
H 2768 —— 
$ 2769 HEAD_AREA [CMD_INT]) = ZERO; 'Clear out the indicator 
3 2770 return; !Continue on with the host code 
3 tha} end; 
3 2773 $0000606060060004600000000006END OF COMMAND RING INTERRUPT PROCESSINGseeeccccccccscasese 
3 2774 
8 2775 $e 
H 2776 : Check to see if an adaptor purge is bei requested 
3 2777 ! by the seretcenivelier in order to complete excution 
F 2778 ! of a issued command. Remember that this is illegel 
; 2779 ! during POP-11 formatting and is concidered to be a 
8 2780 ! fatel error. 
Fy 2781 $- 
3 2782 
F 2783 if .HEAD_AREA [ADP_CH) nequ ZERO !Is the an adaptor purge request? 
A 2784 then 
3 2785 poe'e 
3 2786 RET_STATUS = APR_CODE; tIndicate the error code 
8 2787 DECODE (); tReport the error and kick the bucket 
3 2788 return; tJust for show. Decode kills it 
8 cote end; 
3 
; 2791 feoesesseesesessessesessessEND OF ADAPTOR PURGE INTERRUPT PROCESSINGsececccccsccccscacecea 
8 2792 
Fy 2793 $e 
H 2794 ! The host program has been interrupted by an unknown interrupt 
8 dae : source if the routine program flow reaches here. 
; . 
F 2797 ' Load the error code into return status and call decode to take 
8 2798 ! appropriate action. 
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: 2799 Ss 
3 28090 
3 2801 RET_STATUS = UIN_CODE; 
8 2802 DECODE (); 
’ 2803 return; 
FY 2804 end; 
-SBTTL OUPSI.SERVICE MODULE DECLARATIONS 

000000 010046 OUPSI. SERVICE: : 

MOV RO, -(SP) 3 2286 
000002 010146 MOV R1,-CSP) 
000004 010246 MOV R2,-C(SP) 
000006 010346 MOV R3,-CSP) 
000010 010446 MOV R4,-CSP) 
000012 010546 MOV RS, -C(SP) 
000014 016700 000000G MOV RC25.ADOR ,RO 3 2357 
000020 016046 000002 MOV 2(RO), -(SP) 3s *,RC$S.REG . 
000024 100004 BPL 1$ 
000026 012767 000021 000000G MOV @21,RET.STATUS 3 2360 
000034 000546 BR 9$ Fy 2361 
000036 016700 000000G 1$: MOV HEAD .AREA,RO 3 2388 
000042 032760 000001 000006 BIT #1,6(RO) 
000050 001002 BNE es 
000052 000167 000550 JMP 218 
0000S6 004767 176424 2s: JSR PC .GET.NRD $ 2391 
000062 016700 000000G MOV NRD.SLOT,RO 3 2399 
000066 006300 ASL RO 
000070 006300 ASL RO 
000072 066700 000000G ADD RECEIVE .RING,RO 
000076 032760 100000 000002 BIT #100000, 2(RO) 
000104 001404 BEQ 4$ 
000106 012767 000061 000000G 3%; MOV #61,RET.STATUS 3 2402 
000114 000570 BR 16$ 3 2403 
000116 104422 4$: TRAP 22 3 2416 
000120 016700 000000G MOV NRD.SLOT,RO 3 2424 
000124 006300 ASL RO 
000126 006300 ASL RO 
000130 066700 000000G ADD RECEIVE .RING,RO 
000134 011067 000000G MOV (RO), RET. ENSAD 
000140 162767 000004 000000G SUB 04 ,RET.ENSAD 
000146 016701 000000G MOV RET.ENSAD,R1 3 2444 
000152 116100 000014 MOVB 14(R1),RO 
000156 006200 ASR RO 
000160 006200 ASR RO 
000162 006200 ASR RO 
000164 006200 ASR RO 
000166 006200 ASR RO 
000170 006200 ASR RO 
000172 042700 177774 BIC @177774,RO0 
000176 020027 000002 CMP RO, 02 
000202 001121 BNE 14$ 
000204 005002 * CLR R2 3 2461 
000206 156102 000014 BISB 14(R1),R2 
000212 020227 000205 CMP R2,9205 
000216 001007 BNE 


6$ 
000220 021127 000060 S$; CMP (R1), 060 ; 2470 
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128: 


13%: 


148: 
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11-Jan-1984 13:23:12 


10$ 
071,RET.STATUS 
16$ 

R2, 0204 

S$ 

R2,0201 

S$ 

R2, 9202 

S$ 

R2, 9203 

S$ 

R2, 0206 

S$ 

R2, 0204 

S$ 

R2,0211 

S$ 

R2, #200 

7$ 
#701,RET.STATUS 
24% 

R2, 9207 

8$ 
0601,RET.STATUS 
24% 
#101,RET.STATUS 
24% 

RET .ENSAD,RO 
4(RO),RS 


R4 
RO 


R1 
OUT$STO.BUFCRO),R1 
R1,R5 


12s 


#100000 ,OUT$STD.BUF CRO) 
RET.ENSAD,OUT$STD.BUF +2(RO) 


#1,R4 


15$ 
0401,RET.STATUS 
24s 

RO 

8$ 
#501,RET.STATUS 
24% 

074, QRET.ENSAD 
NRO. SLOT ,RO 


RO 
RO 


VAX-11 Bliss-16 v3- 


SEQ lg 


SSS 
SPIDERSUSERS : [NEALE .AZTEC ]ZRCHBS. B16;4°C (11) 


ZRCHBS 
REV B PATCH 00 


3 Routine Size: 
; Maximum stack 


: 2805 


ZRCHBO RC25 DISK FORMATTER 


MODULE DECLARATIONS 
000000G 

100000 000002 
000000G 


000003 


234 words, 


depth per invocation: 


18$: 
19$: 


21%: 


228: 


Routine Base: 
13 words 


AC $CODE 


K14 


5-Apr-1984 13:46:24 
11-Jan-1984 13:23:12 


RECEIVE .RING,RO 
#100000, 2(RO) 
en 


RO, 03 
18% 
R3 
19% 
RO,R3 
R3,RO 
RO 


RO 


RECEIVE .RING,RO 
+ + eat casita 


se. 

+ eRET.STATUS 

#301,RET.STATUS 
CODE 


- 1470 
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2727 


2729 
2727 
2731 
2737 


ZRCHBS 
REV B PATCH 00 
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L1i4 


SEQ senso 
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global routine CTO_WAIT (TO_VALUE, REF_NUM, BUFSLOC) = [Controller time out wait 


° 
aa 


Functional Description : 
This routine is called to wait for the port/controller to either 
complete the queued command or time out the c 

Formal Parameters : 
TO_VALUE Indicate the time-out interval for this command. 


REF _NUM This argument contains the unique reference number 
eo to this command being timed out by this 
ine 
BUF $LOC This argument points to the out$std_buf location 


where this command is saved. At this location the 
received fl “rec_flg” bit is examined within the 
the timeout loop and when it equals true will 
signal that this command has been received by the 
interrupt service routine. 

Implicit Inputs : 


none 
Implicit Outputs : 
The command word in the out$std_buffer ‘word zero of a command 
yt is cleared out with the value #o0'100000' to indicate this 
an unused out$std_buffer slot and that it can be reused. 
Completion | Codes : 
There are two levels of return status returned by this routine. 

Bn Tne OUP interrupt service returns to this routine a status code 
to indicate the success of the connection/communications mechanism 
to complete the queued command. If the port/controller does not 
time out then this return status is returned as this routines 
return status code. 

2. If the port/controller times out then the SA Register error bit 
is examined for the error bit set. If set then an port fatel 
error code is returned to the calling routine else a controller 
time out error code is returned. 

In ell cases, if en error code is returned (bit 0 = 1) then the 
routine decode is called to decode the error code and does the 
necessary recovery actions. 

At the next higher level of return from this routine is another level 
of return status returned. This level test the success of the 
connection and also test tre status field in the returned response 
envelope for the success of the controller to successfully complete 
the requested command. 

Side Effects : 
none 


OS OS OS OS OS OS OS OS OS OS OS OS OS OS OE OD OD OD OD OD OD OG OS OG OE OS OS OS OE OS OE OS OS 1S ODED ID ID I*DI*SD tS +aeae 


begin 

fe 

! Before doing the timeout wait make sure that this buffer location 
! that we're suppose to time out actually contains the command ref 


! number that was sent to us vie the formal argument. Error and 


: kick the bucket if not the same. 


= .OUT$STD_BUF [.BUFSLOC, CMD_REF]) nequ .REF _NUM tls this the same ref _num 
hen 


M14 
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’ 2863 begin 
3 2864 RET_STATUS = OSE_CODE; tIndicate the error code 
; 2865 DECODE (); 'Call decode to report the error 
; 2866 end; 
3 2867 
3 2868 te 
’ 2869 ! Loop on a one micro second delay for the number of times 
3 2870 ! requested by the caller. After each delay see if the flag 
: 2871 ! “rec_flg” has been set yet. Return "“Ret_status” and clear the 
3 2872 ! command word to so'l ' to indicate this command has been 
3 2873 ! received if this flag gets set before the timer expires. 
3 ty ! Return a error code if the timer expires before the flag gets set. 
3 !- 
ry 2876 
3 2877 incru i from 0 to .TO_VALUE do ‘Loop for time-out_value 
; 2878 begin 
; ob DELAY (C_US); !Do the one micro second delay 
3 : 
3 2881 ! Exit routine with the DUP interrupt service routines “ret_status” if 
3 2882 ! “rec_flg” got set before the timer expires. 
3 2883 : 
3 2884 
8 oe ol .OUT$STO_BUF [.BUFSLOC, REC_FLG) eqlu TRUE tIs this command received yet 
’ 
8 2887 pean 
3 2888 OUTSSTO_BUF [.BUFSLOC, CMD_WRD) = #0’ 100000'; 'Return the slot to the unused state 
H 2889 return .RET _STATUS; !Return the interrupt service status 
8 2890 end; 
3 2891 
F 2892 H 
3 2893 ! Check the SA register for posted port errors just in case the 
3 — ! port does not interrupt the host when a port error occurs. 
; H 
$ 2896 
3 aed if .RC25_ADOR [RCSA, ERR_BIT] then return RET_STATUS = PFE_CODE; 
3 
3 2899 BREAK; 'Service any control C's 
3 2900 end; 
Fy 2901 
3 2902 : 
Fy 2903 ! The port/controller timed out if the code reached here. Return an error 
3 2904 ! code to the caller and exit the routine. 
8 2905 H 
F 2906 
8 2907 if .RC25_ADDR [RCSA, ERR_BIT) !Is the SA error bit set 
3 2908 then 
Fy 2909 return RET_STATUS = PFE_CODE !Port timed out with fatal error 
3 2910 else 
8 sett return RET_STATUS = CTO_CODE; !Port just timed out 
3 
3 2913 end; 
-GLOBL LSOLY 


-SBTTL CTO.WAIT MODULE DECLARATIONS 


ZRCHBS 
REV B PATCH 00 


; Routine Size: 
; Maximum stack depth per invocation: 


Fy 2914 


ZRCHBO RC25 DISK FORMATTER 
MODULE DECLARATIONS 


000000G 
000006 
000020 


000000G 


000022 


003001 000000G 


175716 


000001 
000000G 
000004 


000011 


68 words, 


CTO.WAIT:: 


8$: 
9$: 


118: 


N14 


5-Apr-1984 13:46:24 
11-Jan-1984 13:23:12 


R1, $SAVE3 

#6, SP 

20(SP),RO 

RO 

RO 
@OUTS$STD.BUF ,R3 
0,R3 

RO 

CR3),RO 


RO,22(SP) 
1$ 


#3001 ,RET.STATUS 
+ cama 


#-100000, (R3) 
RET.STATUS,RO 


12$ 
RC2S5. ADDR ,RO 
Nate 2¢SP) 


#11,RO0 
RO,RET. STATUS 
06, SP 


PC 


Routine Base: ACSCODE + 2414 


9 words 
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3 
: BUF $LOC, + 


; *,REF.NUM 


ak 
3 *,$$TMP] 
3 a, $$TMP1 


3; $sTMP 
3 $$TMP1 


; $$TMP2 


; #,RC$S.REG 


I 
; I, TO. VALUE 


#,RCS$S.REG 


2806 
2861 


2864 
2865 
2877 


2879 


2885 


2888 
2887 


2897 


2877 


2907 


2909 
2911 


2806 


B15 


SEQ 0183 
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3 soa Q@lobel routine ABORT = !Aborts remote program 

8 

3 2917 Yoo 

8 2918 ! Functional Description : 

3 2919 +! Tre abort progrem command is used to terminate the execution of a 
3 2920 ! remote program in en orderly fashion. When e successful response 
3 2921 ! is received to this command the remote eres hes stopped 
3 2922 3! executing and the server is in idle state. te thet the sending 
3 e923 3 of this command does not preclude further send date or receive date 
3 e924 3 exchanges: On the contrary, the remote program may be designed to 
3 2925 ! send out termination stetus end Sone even ask questions during 
F 2926 3! its forced-exit sequence. The time out for this commend is a fixed 
3 2927 3 i9 seconds and if @ response is not received by then the 
3 2928 ! connection to the dust should be terminated. This command is only 
3 2929 ! legel if the dust is in active state. 
3 2930 !} 
3 2931 ! Formal Peremeters : 
3 2932 ! none 
3 2933 3 
3 2934 ! Implicit Inputs : 
3 2935 ! NSO _SLOT This globel utorage gets loaded by the routine 
3 2936 ! ‘Get_ned' and in it is stored the next send ring 
F 2937 3 descriptor slot where the port/controller should 
: 2938 ! be polling on and the place to put this commands 
3 2939 ! command packet. 
3 2940 ! 
Fy 2941 ! Implicit Outputs : 
H 2942 3 none 
3 2943 3 
8 2944 ! Completion Codes : 
Hy 2945 ! RET_STATUS: Return stetus passes back to the calling routine 
8 ta : the stetus of the just issued command. 
; . 
3 2948 ! Side Fffacts : 
F 2949 ! Any remote program running in the controllers DM machine will 
F 2950 ! be aborted. 
8 2951 $-- 
3988 
; begin 
3 2954 
H 2955 locel 
$ 2956 REF _NUM, {Stores unique cmd ref number 
3 2957 ABO _BUF $LOC, !Stores out$standing cmd buffer location 
; 3+ 4 TEMP; 1A place to put the read IP register data 
: 2960 H 
F 2961 ! Before we load up the command packet up with all this good information get 
Fy ae : thenext send descriptor slot and a unique command reference number. 
rf . 
3 2964 GET_NSD (); !Get the next send desc slot 
3 sees REF _NUM = GET _CMOSREF (); !Get a unique command ref num 
3 . 
F oes ! UQ Port command envelope Header field definition 
A $ 
3 2969 SNO_ENVELOPE [.NSO_SLOT, MSG_LENGTH]) = SZ ABT; tLoad the length of envelope 
$ 2970 SNO_ENVELOPE [.NSO_SLOT, CREDITS] = ONE; tLoad credits 
$ 


2971 SND _ENVELOPE [.NSD SLOT, MSG_TYPE] = 0; tLoad message type 


oe Ge Gs GF Ge Ge Gs GF GF Gt Ge GF Ge Ge Gs GH Ge Ge GH Ge Ge Ge GF GF OF GH GH GF GF GH Ge GF OF Ge GF Ge GF Ge Ge GF GH GH Gs Gs OF Ge Ge Ge Ge GF Ge Ge oF Gs oF OF oF 
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p34 SND _ENVELOPE {.NSO_SLOT, CONN_ID]) = DUP; tlLoad connection ID 
sors : DUP command envelope field definition 

4 
2976 SND _ENVELOPE Re SLOT, CMD rl = ,REF_NUM; !Define referance number 
2977 SND _ENVELOPE NSO_SLOT, CMD_HRE * ZERO; !Hi order ref number 
2978 SNO_ENVELOPE [.NSD_SLOT, UN_LUSED) = ZERO; !Unused low order 
2979 SNO_ENVELOPE [.NSO_SLOT, UN_MUSED] © ZERO; !Unused hi order 
2980 SNO_ENVELOPE [.NSD_SLOT, OPCODE) = OP_ABT; !Load opcod 
2981 SND _ENVELOPE [ .NSO “SLOT, RSVO) = ZERO; tReserved field 
do | SNO ENVELOPE [.NSO_SLOT, MODIFIER) + ZERO; 
2984 ! Call the load outtstanding command buffer routine 
2985 ! and load this command into the buffer. The return 
2986 ! from this routine will point us to the buffer location 
2987 ! where this command is stored. Leter we can look at 
2988 ! this location to see if the interrupt service routine 
dae . has received and process it. 
sos ABO _BUF $LOC * LOAD_OUTSSTD_BUF (.REF_NUM); ‘Load the command 
2993 if .ABO_BUFSLOC eaqlu OBF CODE then DECODE (); ‘Error if buffer is full 
2995 H 
Poe 3 : Set the ownership bit to 1 giving this slot to the port/controller 
2998 SEND RING (.NSD_SLOT, OWN_BIT) = PORT_OWNED; 
coor Read the IP register to stimulate port polling 
3002 Tene = .RC25_ADOR [RCIP, RC_ALL); 
3004 Time out the port/controller processing the command. 
3006 ) The first test tests the connections abil ity to 
3007 ! respond to this command without any errors in the SA 
poe : register and for the command not timing out. 
3010 ! The second tests the DUP server for good status. If 
3011 ! bed stetus is sent back then an error code is returned 
3012 $ to the calling routine where the routine “decode” will 
3013 ! decode and take the appropriate recovery. The time 
3014 : out routine will loop on delaying and checking the ni 
3015 ! bit of the first word in the outsstd_buf for a true. 
3016 $ When true signels us thet the interrupt service routine 
3017 ! nes received the endpacket and no connection errors 
3018 ! were detected. 
3019 H 
3020 
poss if CTO_WAIT (3000, .REF_NUM, .ABO_BUFSLOC) then DECODE (); !Is return an error 
3023 H 
3024 ‘ Get the return envelope address from the out$std buf 
3025 : et this commands buffer location and check the packet 
Boos ' for good status error and die if bad status was returned 

‘ 
3028 RET_ENSAD = .OUTSSTO BUF [.ABO BUFSLOC, ENV_ADR}; !Get the ret env sar 
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'Return ea "Response status err” code 


!This ret status is good or bad 


_ ABORT MODULE DECLARATIONS 


J 
! Now test for good status 
J 
if .RET_ENSAD (STATUS) nequ ZERO 
then 
return RET_STATUS = RSE_CODE 
else 
return .RET_STATUS; 
end; 
000000G ABORT: : 
ter 
175312 JSR 
175454 JSR 
MOV 
000000G MOV 
000054 MOV 
000000G JSR 
000014 000000G MOV 
000002G MOV 
ADO 
000001 MOVB 
000002 000001 MOvVB 
000004G MOV 
000006G CLR 
000010G CLR 
000012G CLR 
000006 0000146 MOvVB 
000015G CLRB 
000016G CLR 
MOV 
175252 JSR 
MOV 
002001 CMP 
BNE 
175416 JSR 
1%: MOV 
ASL 
ASL 
000000G ADD 
100000 000002 BIS 
000004 MOV 
MOV 
005670 MOV 
MOV 
MOV 
177356 JSR 
CMP 
ROR 
BCC 
175334 JSR 
2s: MOV 


R1, $SAVE)]) 
-(SP) 

PC,.GET.NSO 

PC. GET .CHDSREF 


MUL 
@14, SND. ENVELOPE( RO) 
@SND ENVELOPE +2,R1 
RO,R1 
#1,(R1) 
#2,1(R1) 
R2.,SND. ENVELOPE +4(RO) 
SND . ENVEL OPE +6( RO) 
SND ..ENVELOPE + 10(RO) 
SND ..ENVELOPE + 12(RO) 
@6 . SND ..ENVELOPE + 14( RO) 
SNO .ENVELOPE + 15( RO) 
SND . ENVELOPE + 16(RO) 


R2,(SP) 
PC,.LOAD.OUTSSTD.BUF 


SEND .RING,.RO 
#100000 ,2( RO) 
@RC25. ADDR, 4(SP ) 
4(SP),RO 
@5670,(SP) 

R2, -( SP) 
R1,-CSP) 
PC,.CTO.WAIT 

(SP )+,(SP)> 

RO 


2s 
PC ,OECODE 


RO 


e,REF .NUM 


REF .NUM,«@ 


REF .NUM,¢ 


¢,ABO.BUF $LOC 
ABO.BUF SLOC,« 


¢,RC$S.REG 
RC$S.REG, TEMP 


REF .NUM,« 
ABO.BUF $LOC,¢ 


ABO.BUF SLOC,« 


2998 


3002 
3021 


ZRCHBS 
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; Maximum stack 


ZRCHBO RC25 DISK FORMATTER 
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000002G 000000G 
000002G 


000016 

000031 

000000G 3$; 

000006 4$: 
95 words, Routine Base: 


depth per invocation: 9 words 


RTS 


AC sCODE 


E15 


5-Apr-1984 13:46:24 
11-Jan-1984 13:23:12 


RO 

OUTS$STD.BUF +2(RO),RET.ENSAD 
OUT$STO.BUF +2(RO),RO 

16(RO) 

3$ 

@31,RO 

enn 

& 


RET.STATUS,RO 
#6, SP 


+ 2624 
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3033 


3035 
2953 
2915 


ris 
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: sot! global routine GET_DUST_STATUS = !Gets DUP server status 
3 
: 3043 fee 
Fy 3044 ! Functional Description : 
3 3045 ! This command ellows the host program to agg the DUP server 
Fy 3046 ! to determine its ceracteristics, its state and the state of the 
3 3047 ! progrem currently running Cif any). It is legal in either idle or 
3 3048 ! active state and does not affect the state of server. It has a 
3 3049 ! fixed timeout interval of 3 seconds. If the response times out, the 
H sose 8 host should break the connection. 
3 : 
3 3052 ! Formal Parameters : 
8 3053 ! none 
3 3054 ! 
3 3055 ! Implicit Inputs : 
3 3056 ! NSD _SLOT This globel storage gets loaded by the routine 
3 3057 3 ‘Get_nsd' and in it is stored the next send ring 
3 3058 ! descriptor slot where the port/controller should 
8 3059 ! be polling on and the place to put this commands 
3 3060 ! command pacxet. 
3 3061 ! 
3 3062 ! Implicit Outputs : 
3 3063 ! none 
8 3064 ! 
8 3065 ! Completion Codes : 
3 3066 ! RET_STATUS: Return status passes back to the calling routine 
8 3067 ! the status of the just issued command. 
H 3068 ! 
3 3069 ! Side Effects : 
Fy 3070 !- 
: BR 
3 in 
8 3073 is 
8 3074 locel 
Fy 3075 REF _NUM, 'Stores unique cmd ref number 
8 3076 GOS _BUFSLOC, 'Stores muttoension cmd buffer location 
8 3077 TEMP; 'A place to put the IP read data 
Fy 3078 
8 3079 H 
3 3080 ! Before we load up the command packet up with ell this good information get 
8 tee : the next send descriptor slot and a unique command reference number. 
3 3083 GET_NSD (); 'Get the next send desc slot 
; oe REF _NUM = GET_CMDSREF (); !Get a unique command ref num 
; . 
8 foes : UQ Port command envelope Header field definition 
° . 
P 3088 SND _ENVELOPE [.NSD_SLOT, MSG_LENGTH] = SZ GDS; tLoad the envelope size 
3 3089 SND _ENVELOPE [.NSO_SLOT, CREDITS) = ONE; tLoad the credit size 
3 3090 SNO_ENVELOPE [.NSD_SLOT, MSG_TYPE] = 0; tLoad the message type (Sequential ) 
8 ee SNO “ENVELOPE [.NSD_SLOT, CONN_ID) = DUP; tLoad the connection ID 
3 
Fy 3093 DUP generic command envelope field definition 
3 3094 H 
8 3095 SND _ENVELOPE [.NSO_SLOT, CMD_LREF] = .REF_NUM; ‘Load command reference number 
3 3096 SND _ENVELOPE [.NSD_SLOT, CMD_HREF] «= ZERO; !Command reference low order 
Fy 


3097 SND_ENVELOPE [.NSD_SLOT, UN_LUSED] = ZERO; !Low order unused 


G15 
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8 3098 SND _ENVELOPE [.NSD_SLOT, UN_HUSED) = ZERO; !Hi order unused 

3 3099 SND_ENVELOPE [.NSO_SLOT, OPCODE) = OP_GDS; !Load opcode 

: 3100 SND_ENVELOPE [.NSD_SLOT, RSVD) = ZERO; tReserved field 

Fy pe SNO_ENVELOPE [.NSO_SLOT, MODIFIER) = ZERO; !Load modifier field 

FY 1 Hy 

’ 3103 ! Call the load out$standing command buffer routine 

3 3104 ! and load this .uws5and into the buffer. The return 

FY 3105 ! from this routine will point us to the buffer location 

Fy 3106 ! where this command is stored. Later we can look at 

3 3107 ! this location to see if the interrupt service routine 

3 typed ! has received and process it. 

3 1 H 

Fy cite GOS _BUFSLOC = LOAD_OUTSSTD_BUF (.REF_NUM); ‘!Load the command 

3 1 

3 to if .GOS_BUFSLOC eqlu OBF _CODE then DECODE (); ‘Error if buffer is full 
3 11 

H 3114 $ 

3 et : Set the ownership bit to 1 giving this slot to the port/controller 
3 H 

3 cis SEND _RING (.NSO_SLOT, OWN_BIT) = PORT_OWNED; 

; . 

Fy ey ! Read the IP register to stimulate port polling 

H H 

3 apd TEMP = .RC25_ADOR [RCIP, RC_ALL]); 

3 H 

3 sa ! Time out the port/controller processing the command. 

3 $ 

3 3125 ! The first test tests the connections ability to 

3 3126 ! respond to this command without any errors in the SA 

3 44 ! register and for the command not timing out. 

3 4 

3 3129 ! The second tests the DUP server for good status. If 

3 3130 ! bad status is sent back then an error code is returned 

8 3131 ! to the calling routine where the routine “decode” will 

3 3132 ! decode and take the appropriate recovery. The time 

; 3133 ! out routine will loop on delaying and checking the hi 

8 3134 ! bit of the first word in the out$std_buf for ea true. 

; 3135 ! When true signals us that the interrupt service routine 

8 3136 ! hes received the endpacket and no connection errors 

3 3137 ! were detected. 

8 3138 H 

8 3139 

3 se if CTO_WAIT (3500, .REF_NUM, .GDS_BUFSLOC) then DECODE (); !Is return an error 
: 3142 ’ 

3 3143 ! Get the return envelope address from the out$std_buf 

3 3144 ! et this commands buffer location and check the packet 

5 pies : for good stetus error and die if bad status was returned 

3 a. 

3 gt RET_ENSAD = .OUTSSTDO_BUF [.GDS_BUFSLOC, ENV_ADR); 'Get the ret env adr 
FH g 

F} 3149 ! Now test for good status 

8 3150 : : 

8 3151 

F 3152 if .RET_ENSAD (STATUS) nequ ZERO tTest the status 

3 3153 then 

3 


3154 return RET_STATUS = RSE _CODE 'Return a "Response status err” code 


Hi5S 


=a ao 
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; 3155 else é 
3 3156 return .RET_STATUS; !This ret_status is good or bad 
ry 3157 
3 3158 end; 

.SBTTL GET.OUST.STATUS MODULE DECLARATIONS 
000000 004167 000000G GET.DOUST.STATUS:: 

JSR R1, $SAVE2]) 3 3041 
000004 005746 TST -(SP) 
000006 004767 175014 JSR PC ,GET.NSD 3 3083 
000012 004767 175156 JSR PC ,GET.CMOSREF F 3084 
000016 010002 MOV RO,R2 3; *,REF .NUM 
000020 016746 000000G MOV NSO.SLOT, -( SP) 3 3088 
000024 012746 000054 ’ MOV @54,-(SP) 
000030 004767 000000G JSR PC BL $MUL 
000034 012760 000014 000000G MOV #14,SND.ENVELOPE(RO) 
000042 012701 000002G MOV @SNO .ENVELOPE +2,R1 3 3089 
000046 060001 ADD RO,R1 
000050 112711 000001 MOvVB #1,(R1) 3 3090 
000054 112761 000002 000001 MOVB @2,1(R1) 3 3091 
000062 010260 000004G MOV R2,.SND.ENVELOPE +4(RO) ; REF .NUM,« 3095 
000066 005060 000006G CLR SNO ..ENVELOPE +6( RO) 3 3096 
000072 005060 000010G CLR SND .ENVELOPE + 10( RO) 3 3097 
000076 005060 000012G CLR SND .ENVELOPE +12( RO) 3 3098 
000102 112760 000001 000014G MOVB @1,SNO. ENVELOPE +14(RO) F 3099 
000110 105060 000015G CLRB SND ..ENVELOPE + 15(RO) 3 3100 
000114 005060 000016G CLR SNO . ENVELOPE + 16(RO) 3 3101 
000120 010216 MOV R2,(CSP) 3; REF .NUM,« 3110 
000122 004767 174754 JSR PC,LOAD.OUT$STD.BUF 
000126 010001 MOV RO.R1 ; #,GOS.BUF $LOC 
000130 020127 002001 CMP R1,¢2001 ; GOS.BUFSLOC,« 3112 
000134 001002 BNE 1$ 
000136 004767 175120 JSR PC ,DECODE 
000142 016700 000000G 1$: MOV NSOD.SLOT,RO : 3117 
000146 006300 ASL RO 
000150 006300 ASL RO 
000152 066700 000000G ADD SEND .RING,RO 
000156 052760 100000 000002 BIS #100000 , 2(RO) 
000164 017766 000000G 000004 MOV @RC25. ADDR, 4( SP ) : *,RC$S.REG 3121 
000172 016600 000004 MOV 4(SP),RO 3 RC$S.REG, TEMP 
000176 012716 006654 MOV 06654, (SP) ; 3140 
000202 010246 MOV R2,-CSP) 3; REF .NUM,« 
000204 010146 MOV R1,-CSP) ; GOS.BUFSLOC,¢ 
000206 004767 177060 JSR PC,.CTO.WAIT 
000212 022626 CMP (SP )+,CSP)-+ 
000214 006000 ROR RO 
000216 103002 BCC 2s 
000220 004767 175036 JSR PC ,DECODE 
000224 010100 2s: MOV R1,RO : GOS.BUFSLOC,® 3147 
000226 006300 ASL RO 
000230 006300 ASL RO 
000232 016067 000002G 000000G MOV OUTSSTO.BUF -2(RO),RET.ENSAD 
000240 016000 000002G MOV OUT$STD.BUF +2(RO),RO 3 3152 
000244 005760 000016 TST 16(RO) 
000250 001405 BEQ 


3$ 
000252 012700 000031 MOV #31,R0 ; 3154 


} & 


SEQ 0190 
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REV B PATCH O00 MODULE DECLARATIONS 11-Jan-1984 13:23:12 SPIDERSUSERS: [NEALE .AZTEC )ZRCHBS.B16;4 (14) 
000256 010067 000000G MOV RO,RET.STATUS 
000262 000402 BR 4$ 3 3072 
000264 016700 000000G 3$: MOV RET. STATUS,RO 
000270 062706 000006 4$: ADD #6, SP ry 3041 
000274 000207 RTS PC 
: Routine Size: 95 words, Routine Base: ACSCODE + 3122 


; Maximum stack depth per invocation: 9 words 


3 3159 


J15 


Before we load up the command packet up with all this information get 
the next send descriptor slot snd a unique command reference number. 


T_NSD (); 'Get the next send desc slot 
F_NUM = GET_CMDSREF (); !Get ac unique command ref num 


SEQ wy 
ZRCHBS ZRCHBO RC25 DISK FORMATTER 5-Apr-1984 13:46:24 VAX-11 Bliss-16 v3-555 . 47 
REV B PATCH 00 MODULE DECLARATIONS 11-Jan-1984 13:23:12 SPIDERSUSERS: [NEALE . AZTEC JZRCHBS. B16;4°C (15) 
3 set global routine EX_SUP_PROG = !Executes supplied program 
: 3162 Yee 
3 3163 ! Functional Description : 
3 3164 ! This command causes the server to transfer the program from host 
3 3165 ! memory to an area in the controller and start its execution. The 
3 3166 ! host supplies the address and length (Cin bytes) of a buffer 
3 3167 ! containing the program header and initial load; the starting 
3 3168 ! of the program, its memory requirements and any relocation information 
H 3169 ! needed to run uncer the server are in the program header in ea format 
3 3170 ! which is none of the host business. This commmand is — a legal when 
; 317i 3! the server is in the idle state and return of a successful end packet 
; Re : puts the server into to active state. 
. ® 
3 eM Hy The time out interval for this command is 30 seconds. 
H 1 H 
Fy 3176 ! Formal Parameters : 
3 3177 ! none 
3 3178 ! 
3 3179 ! Implicit Inputs : 
3 3180 ! NSD_SLOT This global storage gets loaded by the routine 
; 3181 ! ‘Get_nsd' and in it is stored the next send ring 
8 3162 ? descriptor slot where the port/controller should 
3 3183 ! be polling on and the place to put this commands 
3 3184 ! command packet. 
F 3185 ! 
3 3186 ! 
8 3187 ! Implicit Outputs : 
3 3188 ! AZFMTR: Azfmtr is the vector produced by DMCONV program and 
3 3189 : is decalared in module AZKEL6. 
3 3190 !: DMSA: These three bound addresses point to specific area 
3 3191 ! OVSA: im the DM code buffer ‘azfmtr’ and are used to 
3 on H HOSA: define the buffer descriptors within this command. 
H ? 
8 3194 ! Completion Codes : 
F 3195! RET_STATUS: Return status passes back to the calling routine 
3 he 4 : the status of the just issued command. 
F : 
s 3198 ! Side Effects : 
3 3199 3 The DM machine in the controller goes from the idle state to the 
F or : active state on return of a successful return packet. 
$ s~7 
: 3203 begi 
3 mn 
3 3204 
F 3205 local 
3 3206 REF _NUM, !Stores unique cmd ref number 
A 3207 ESP _BUFSLOC, !Stores outstanding cmd buffer location 
8 ee 4 TEMP ; !A place to put the read IP register data 
; 
F 3210 
F 
3 
F 
F 
F 
3 


is 
o- CT ee 
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SEQ — 
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: tH : UQ Port command envelope Header field definition 
; 3219 SND _ENVELOPE {.NSD_SLOT, MSG strate = SZ_ESP; tLoad the message length 
3 3220 SND_ENVELOPE [.NSD_SLOT, CREDITS] = ONE; tLoad the credits field 
3 3221 SNO_ENVELOPE [.NSD_SLOT, MSG_TYPE) = 0; !Define the msg type ‘Sequential’ 
3 soos SNO _ENVELOPE { .NSD_ SLOT, CONN_ID) = OUP; !Define the conection ID 
3 : 
3 foes : DUP generic command envelope field definition 
3 
; 3226 SND ENVELOPE {.NSD_SLOT, CMD_LREF) = .REF_NUM; tLoad command ref number 
3 3227 SNO_ENVELOPE [.NSD_SLOT, CMD_HREF] = ZERO; !Zero Hi order word of cmd ref 
: 3228 SND_ENVELOPE [.NSD_SLOT, UN_LUSED) = ZERO; !Not used in DUP implimentation 
: 3229 SND_ENVELOPE [.NSD_SLOT, UN_HUSED) = ZERO; !Not used in DUP implimentation 
; 3230 SND_ENVELOPE [.NSD_SLOT, OPCODE] = OP_ESP; !Load the command op-code 
3 3231 SNO_ENVELOPE [. _SLOT, RSVD) = ZERO; tNot used 
: aes Pe. ENVELOPE [.NSD_SLOT, MODIFIER) = ERO; 
3 
’ aso. Command specfic command envelope field definition 
3 . 
3 aes : Byte count of initial transfer (from bytes 0-3 of the program header). 
3 : 
3 3238 SND_ENVELOPE [.NSD_SLOT, BLO_CNT]) = .AZFMTR [WRDO]; !Byte count low word 
3 io. SND _ENVEL OPE (.NSD_SLOT, BHI_CNT) = .AZFMTR [WRD1); !Byte count high word 
: : 
8 3241 ' Buffer descriptor definition for initial load. First 
3 | : byte of this buffer is byte 0 of program header. 
3 . 
3 3244 SND_ENVELOPE [.NSD_SLOT, BPA_LO) = HOSA; tlLow unibus adrs <0-15> 
3 3245 SND _ENVELOPE [. _SLOT, BPA_HI) = ZERO; tUnibus adrs bits <16-17> 
3 3246 SNO_ENVELOPE [.NSD_SLOT, QBUS_EXT]) = ZERO; !Q_bus extention adrs 
3 3247 SND_ENVELOPE [.NSD_SLOT, RSV) = ZERO 'Reserved field 
3 3248 SND_ENVELOPE [.NSD_SLOT, A_CHAN) = ZERO; !Unibus adaptor channel number 
: 3249 SND_ENVELOPE [.NSD_SLOT, RSVO) = ZERO; !Tnhese next four words are not 
H SND_ENVELOPE [.NSO_SLOT, RSV1) = ZERO; tused in the DUP implementation 
5 3251 SND_ENVELOPE [.NSD_SLOT, RSV2) = ZERO; : 
F aoe SNO _ENVELOPE (.NSO_SLOT, RSV3) = ZERO; : 
3 : 
3 3254 ' These next field definitions are the same as above except they are for the 
3 3255 ! overlay buffer descriptors. To make life easy for me I'll use the same names 
; aoa : and just prefix them with a $ for uniqueness. 
: aoa. The overlay erea immediately follows the initial load image in the program image. 
3 > 
3 3260 SNO_ENVELOPE [.NSD_SLOT, $BPA_LO) = .OVSA; !Low unibus adrs <0-15> 
3 3261 SNO_ENVELOPE [.NSD_SLOT, s$BPA_HI] = ZERO; !Unibus adrs bits <16-17> 
3 3262 SNO_ENVELOPE { .NSO SLOT, $QBUS_EXT] = ZERO; !Q_bus extention adrs 
3 3263 SND_ENVELOPE [.NSD_SLOT, $RSV) = ZERO; tReserved field 
3 3264 SND_ENVELOPE [.NSD_SLOT, $UBA_CHAN]) = ZERO; !Unibus adaptor channel number 
3 3265 SND_ENVELOPE [.NSD_SLOT, $RSVO) = ZERO; 'Tnese next four words are not 
3 3266 SND_ENVELOPE [.NSD_SLOT, $RSV1) = ZERO; tused in the DUP implementation 
3 3267 SND_ENVELOPE [.NSD_SLOT, $RSV2] = ZERO; : 
5 rer SND ENVELOPE [.NSD_SLOT, $RSV3) = ZERO; H 
$ . 
8 3270 ! Call the load outstanding command buffer routine 
3 3271 ' and load this command into the buffer. The return 
8 3272 ' from this routine will point us to the buffer lccation 
Fy 3273 ' where this command is stored. Later we can look at 


Lis 


SEQ aig 
ZRCHBS ZRCHBO RC25 DISK FORMATTER 5-Apr-1984 13:46:24 VAX-11 Bliss-16 v3-555 49 
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: 3274 ! this location to see if the interrupt service routine 
3 rth ! hes received and process it. 
H $ 
3 aeie ESP_BUFSLOC = LOAD_OUTSSTO_BUF (.REF_NUM); !Load the command 
: 
: aoe if .ESP_BUFSLOC eaqlu OBF_CODE then DECODE (); ‘Error if buffer is full 
3 
3 3281 : 
3 aoes ! Set the ownership bit to 1 giving this slot to the port/controller 
3 H 
3 ooo. SEND_RING [.NSO_SLOT, OWN_BIT] = PORT_OWNED; 
3 $ 
; sees : Read the IP register to stimulate port polling 
; >. 
FY ted TEMP = .RC2S_ADDR [RCIP, RC_ALL); 
Hy . 
: asoe : Time out the port/controller processing the command. 
Hy — 
3 3292 ! The First test tests the connections ability to 
Fy 3293 ! respond to this command without any errors in the SA 
’ 4 : register and for the command not timing out. 
Fy 
F 3296 ! The second tests the DUP server for good status. If 
8 3297 ! bed status is sent back then an error code is returned 
3 3298 ! to the calling routine where the routine “decode” will 
3 3299 : decode and take the appropriate recovery. The time 
3 3300 ! out routine will loop on delaying and checking the hi 
8 3301 ! bit of the first word in the out$std_buf for a true. 
F 3302 ! When true signals us that the interrupt service routine 
3 3303 : has received the endpacket and no connection errors 
Fy 3304 ! were detected. 
8 3305 a 
8 3306 
3 eeee if CTO_WAIT (3500, .REF_NUM, .ESP_BUFSLOC) then DECODE (); !Is return an error 
Fy 
8 3309 : 
3 3310 ! Get the return envelope address from the out$std_buf 
Fy 3311 ! at this commands buffer location and check the packet 
; esik ' for good stetus error and die if bad status was returned 
; $514 RET_ENSAD = .OQUTSSTD_BUF [.ESP_BUFSLOC, ENV_ADR]; !Get the ret env adr 
; 3316 ' Now test for good status 
Fy 3317 H 
A 3318 
8 3319 if .RET_ENSAD [STATUS] nequ ZERO tTest the status 
; 3320 then 
3 3321 return RET_STATUS = RSE_CODE tReturn a "Response status err” code 
5 3322 else 
; ety return .RET_STATUS; !Tnis ret_status is good or bad 
3 
Fy 3325 end; 


.SBTTL EX.SUP.PROG MODULE DECLARATIONS 
000000 004167 000000G EA. SUP .PROG:: 
JSR R1, $SSAVE2] ; 3160 


ZRCHBS 
REV B PATCH 00 


ZRCHBO RC25 DISK FORMATTER 


MODULE DECLARATIONS 


174516 
174660 


1$: 


M15 
S-Apr-1984 13:46:24 
11-Jan-1984 13:23:12 


-(SP) 
PC,GET.NSD 
PC,GET.CMOSREF 


RO,R2 
+ Se «te 


PC BL $MUL 
#50, SND. ENVELOPE(RO) 
@SND .ENVELOPE +2,R1 


R2, SND. ENVELOPE +4(RO) 

SNO . ENVELOPE +6(RO) 

SNO . ENVELOPE + 10(RO) 

SND. ENVELOPE +12(RO) 
@2,SNOD.ENVELOPE +14(RO) 

SND. ENVELOPE +15(RO) 

SND . ENVELOPE + 16(RO) 
AZFMTR,SNO.ENVELOPE +20( RO) 
AZFMTR+2,SND. ENVELOPE +22(RO) 
@HDSA , SND . ENVELOPE +24( RO) 
@SNO .ENVELOPE +26 ,R1 

RO,R1 

(R1) 

1(R1) 

SND . ENVELOPE + 30( RO) 

SND . ENVELOPE + 32(RO) 

SND. ENVELOPE +34( RO) 

SND . ENVELOPE + 36( RO) 
OVSA,SNO. ENVELOPE +40( RO) 

+ 0 tenet +42,R1 


(R1) 

1(R1) 

SND . ENVELOPE +44(RO) 
SND . ENVELOPE +46( RO) 
SND . ENVELOPE +SO( RO) 
SND . ENVELOPE +S2( RO) 
R2,(SP) 
PC,.LOAD.OUTSSTD.BUF 


PC,.CTO.WAIT 
(SP)+,CSP)+ 
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SEQ 0194 
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SO 
SPIDERSUSERS: [NEALE .AZTEC ]ZRCHBS. B16;4°C (15) 


*,REF .NUM 


REF .NUM,«# 


REF .NUM,@ 


*, ESP .BUF $LOC 
ESP .BUF SLOC,« 


#, RC$S.REG 
RC$S.REG, TEMP 


REF .NUM,@ 
ESP .BUF $LOC, + 


3214 
3215 


3219 


ZRCHBS 
REV B PATCH 00 


; Routine Size: 
; Maximum stack 


3 3326 


ZRCHBO RC25 DISK FORMATTER 
MODULE DECLARATIONS 


N15 


5-Apr-1984 13:46:24 
11-Jan-1984 13:23:12 


ROR RO 
BCC es 
174420 JSR PC ,DECODE 
2s: MOV R1,RO0 
ASL RO 
ASL RO 
000002G 000000G MOV OUT$STD.BUF +2(RO),RET.ENSAD 
000002G MOV OUTSSTD.BUF +2(RO),RO 
000016 TST 16(RO) 
BEQ 3$ 
000031 MOV #31,RO0 
MOV RO,RET.STATUS 
BR 4$ 
000000G 3$: MOV RET.STATUS,RO 
000006 4$: ADD 06, 
RTS 
135 words, Routine Base: ACSCODE + 3420 
depth per invocation: 9 words 


SEQ 0195 
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3 ESP .BUFSLOC,« 


3314 


3319 


3321 
3203 
3160 


B16 


SEQ — 
ZRCHBS ZRCHBO RC25 DISK FORMATTER 5-Apr-19864 13:46:24 VAX-11 Bliss-16 v3-555 S2 
REV B PATCH 00 MODULE DECLARATIONS 11-Jan-1984 13:23:12 SPIDERSUSERS: [NEALE .AZTEC JZRCHBS. g16;4°C (16) 
8 tH globel routine EX _LOC_PROG - !€xecutes locel program 
; 3329) fee 
3 3330 ! Functional Description : 
3 3331 ! Receipt of this command ceuses the controller to search its local 
’ 3332 ! media for the named program, load end execute it. Receipt of oe 
Fy 33335 successful response by the host means thet the program is executing 
3 3334 and the server is in the active state. The time out velue for this 
Fy coe H command is specified in the get dust response 
3 $ 
Fy 3337 ! Formal Parameters : 
FY 3338 ! none 
3 3339 ! 
3 3340 ! Implicit Inputs : 
3 3341 ! NSO _SLOT This globel storage gets loaded by the routine 
3 3342 ! ‘Get_nsd' and in it is stored the next send ring 
3 3343 } descriptor slot where the port/controller should 
3 3344 «(3 be polling on and the plece to put this commands 
Fy 3345 ! command pecket. 
8 3346 (|! 
3 3347 ! Implicit Outputs : 
3 3348 !} none 
3 3349 ! 
3 3350 ! Completion Codes : 
8 soon ft RET_STATUS: Return status pesses back to the calling routine 
3 taf H the status of the just issued command. 
3 8 
3 3354 ! Side Effects : 
F 3355 3! Tre OM machine in the controller goes from the idle state to the 
3 saay : active state on return of e successful return packet. 
Fy !-- 
: 3359 
H in 
3 3360 ites 
3 3361 local 
3 3362 REF _NUM, !Stores unique cmd ref number 
8 3363 ELP _BUFSLOC, {Stores out$standing cmd buffer location 
; i. TEMP; !A plece to store the read IP register data 
8 
F 3366 H 
; 3367 ! Before we loed up the command packet up with ell this good oe ion get 
3 ted : the next send descriptor slot and e unique command reference number 
3 . 
Fy 3370 GET_NSD (); !Get the next send desc slot 
8 seek REF -NUM © GET_CMDSREF (); !Get @ unique command ref num 
3 . 
3 thy : UQ Port command envelope Header field definitior 
Fy H 
3 3375 SND _ENVELOPE [.NSD_SLOT, MSG_LENGTH) + SZ ELP; tLoad the message size 
3 3376 SNO _ENVELOPE {.NSO_ SLOT, CREDITS) = ONE; tLoad the credit size 
3 3377 SND _ENVELOPE [.NSD_SLOT, MSG_TYPE]) = 0; !Define the msg typ ‘Sequential’ 
8 4a pO SOGLore {.NSO_SLOT, CONN_ID) = DUP; !Define the connectio ID 
8 
3 cee DUP generic command envelope field definition 
3 H 
3 3382 SNO_ENVELOPE [.NSO_SLOT, CMD_LREF) = .REF_NUM, ‘Load the command ref number 
ry 


3383 SNO ENVELOPE [.NSD_SLOT, CMD_HREF) = ZERO; !Zero tne Hi order cmd ref num 


C16 


5 0197 
ZRCHBS ZRCHBO RC25 DISK FORMATTER 5-Apr-1964 13:46:24 po BY Bliss-16 v3-555 a: - 53 
REV B PATCH 00 MODULE DECLARATIONS 11-Jan-1984 13:23:12 SPIDERSUSERS: (NEALE. AZTEC IZRCHBS. 616.8 16) 
3 3384 SNO_ENVELOPE [.NSO_SLOT, UN_LUSED]) = ZERO; !Not used in DUP implimentation 
3 3385 SNO __ENVELOPE [ -NSO“SLOT. UN_HUSED] © ZERO; !Not used in DUP implimentation 
: 3386 SNO_ENVELOPE [.NSO_SLOT, OPCODE) = OP_ELP; !Load this commands op-code 
3 3387 SNO_ENVELOPE [.NSO_SLOT, RSVD) = ZERO; tNot used field 
3 coos SND _ENVELOPE [.NSO_SLOT, MODIFIER) = ERO; {Define modifiers for this cmd 
Hy 8 
3 tty : Command specfic command envelope field definition 
3 H 
3 3392 SND_ENVELOPE [.NSD_SLOT, PN_O) = ZERO; {Program name word 0 
3 3393 SNO_ENVELOPE [.NSO_SLOT, PN_1) © ZERO; {Program name word 1 
F poet SND. “ENVELOPE [.NSO_SLOT, PN_2) © ZERO; !Program name word 2 
3 . 
3 3396 ! Cell the load outstanding commend buffer routine 
3 3397 ' and load this command into the buffer. The return 
Fy 3398 ! from this routine will point us to the buffer location 
3 3399 ! where this command is stored. Leter we can look at 
; 3400 § this location to see if the interrupt service routine 
8 ceed : hes received and process it. 
; . 
3 coos ELP_BUFSLOC = LOAD_OUTSSTO_BUF (.REF_NUM); ‘!Load the command 
8 
Fy coon if .ELP_BUFSLOC ealu OBF CODE then DECODE (); ‘Error if buffer is full 
8 
H 3407 8 
: oo ! Set the ownership bit to 1 giving this slot to the port/controller 
3 g 
3 it SEND RING {.NSO_SLOT, OWN_BIT) = PORT_OWNED; 
; ty ! Read the IP register to stimulate port polling 
Fy H 
3 te TEMP = .RC25_ADDR ([RCIP, RC_ALL); 
3 sf 
; te : Time out the port/controller processing the conmand. 
3 . 
3 3418 ! Tre first test tests the connections ability to 
3 3419 ! respond to this command without any errors in the SA 
; cor : register end for the commend not timing out. 
; 3422 ! The second tests the OUP server for good stetus. If 
8 3423 ' bad stetus is sent back then an error code is returned 
3 3421 ! to the calling routine where the routine “decode” will 
8 3425 § decode and take the eppropr i ate recovery. The time 
3 3426 $! out routine will loop on delaying and checking the ni 
Hy 3427 ! bit of the first word in the out$std_buf for ea true. 
3 3428 ! Wren true signels us thet the interrupt service routine 
3 3429 ' nas received the endpacket and no connection errors 
3 3430 $ were detected. 
Fy 3431 H 
3 3432 
3 tt if CTO_WAIT (3000, .REF _NUM, .ELP_BUFSLOC) then DECODE (); Is return an error 
3 
Fy 3435 HY 
F 3436 §' Get the return envelope address from the outistd buf 
F 3437 $ at this commands buffer location and check the packet 
H —o ! for good status error and die if bad stetus was returned 
3 H 
H 3440 RET_ENSAD = .OUTSSTD BUF [.ELP_BUFSLOC, ENV ADR); !Get the ret env aor 


-SBTTL EX.LOC.PROG MODULE DECLARATIONS 


ZRCHBS ZRCHBO RC25 DISK FORMAITER 
REV B PATCH 00 MODULE DECLARATIONS 
; seas Now t for good stat 
; | tes or stetus 
3 3443 : 
3 3444 
3 3445 if .RET_ENSAD [STATUS] nequ ZERO 
3 34446 then 
: 3447 return RET_STATUS = RSE_CODE 
3 3448 else 
3 3449 return .RET_STATUS; 
3 3450 
’ 3451 end; 
000000 004167 000000G vetmcescnalit a 
J 
000004 005746 TST 
000006 004767 174100 JSR 
000012 004767 174242 JSR 
000016 010002 MOV 
000020 016746 000000G MOV 
000024 012746 000054 MOV 
000030 004767 000000G JSR 
000034 012760 000060 000000G MOV 
000042 012701 000002G MOV 
000046 1 ADD 
000050 112711 000001 MOVB 
000054 112761 000001 MOVB 
000062 010260 000004G MOV 
000066 CLR 
000072 005060 000010G CLR 
000076 005060 000012G CLR 
000102 112760 000003 000014G MOvVB 
000110 105060 000015G CLRB 
000114 005060 000016G CLR 
000120 005060 000020G CLR 
000124 005060 000022G CLR 
000130 005060 000024G CLR 
000134 010216 MOV 
000136 004767 174024 JSR 
000142 010001 MOV 
000144 020127 002001 CMP 
000150 001002 BNE 
000152 004767 174170 JSR 
000156 016700 C00000G 1%: MOV 
000162 006300 ASL 
000164 006300 ASL 
000166 066700 000000G ADD 
000172 052760 100000 000002 BIS 
000200 017766 000000G 000004 MOV 
000206 016600 000004 MOV 
000212 012716 005670 MOV 
000216 010246 MOV 
000220 010146 MOV 
000222 004767 176130 JSR 
000226 022626 CMP 
000230 006 ROR 


D16 
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!Test the stetus 
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tReturn a "Response status err” code 


!Tnis ret status is good or bad 


R1, $SAVE2 

-( SP) 

PC ,.GET.NSO 
PC,.GET.CMDSREF 


#60, SND.ENVELOPE( RO) 
@SND..ENVELOPE +2,R1 
RO,R1 

@#1,(R1) 

#2,1(R1) 

R2,SNO. ENVELOPE +4( RO) 
SND . ENVELOPE +6( RO) 
SND . ENVELOPE + 10( RO) 
SND . ENVELOPE + 12( RO) 
@3,SND. ENVELOPE + 14(RO) 
SND . ENVELOPE + 15(RO) 
SNO . ENVELOPE + 16(RO) 
SNO .ENVEL OPE «20( RO) 
SNO . ENVELOPE + 22(RO) 
SND . ENVELOPE +24(RO) 
R2,(SP) 
PC,LOAD.OUTSSTD.BUF 


1$ 

PC ,DECODE 
NSO.SLOT,RO 
RO 

RO 

SEND .RING RO 
#100000 ,2(RO) 
@RC25. ADDR, 4( SP) 
4(SP),RO 
05670,(SP) 
Re, -(SP) 

Rl, -( SP) 
PC,.CTO.WAIT 
(SP)+,(SP)+ 
RO 


@,REF .NUM 


REF .NUM,¢ 


REF .NUM, 


e ,ELP.BUF SLOC 
ELP.BUF SLOC,¢ 


¢,RC$S.REG 
RC$S.REG, TEMP 


REF .NUM,« 
ELP.BLF SL. OC,¢ 


age 


E16 


SEQ 0199 
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000232 103002 BCC 2s 

000234 004767 174106 JSR PC ,DECODE 

000240 010100 es: MOV R1,RO0 ; ELP.BUF SLOC,¢ 3440 
000242 006300 ASL RO 

000244 006300 ASL RO 

000246 016067 000002G 000000G MOV OUTSSTD.BUF +2(RO),RET.ENSAD 

000254 016000 000002G MOV OUT$STO.BUF +2(RO),RO 3 3445 
000260 005760 000016 TST 16(RO) 

000264 001405 BEG 3$ 

000266 012700 000031 MOV #31,RO 3 3447 
000272 010067 000000G MOV RO,RET.STATUS 

000276 000402 BR 4s ; 2259 
000300 016700 000000G 33: MOV RET.STATUS,RO 

000304 062706 000006 4$;: ADD 06,SP 3 3327 
000310 000207 RTS PC 

: Routine Size: 101 words, Routine Base: ACSCODE + 4036 

3; Maximum stack depth per invocation: 9 words 

3 3452 


F16 


SEQ 0200 
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ease globel routine SEND_DATA «= !Performs host-->port communications 
3455) tee 


3456 ! Functional Description : 
These commands ere used to communicate between the initiating host 


’ 

H 

: 

: oT 

3 . 

3 3458 ! program and the remote program. Both send and receive commands 
3 3459 3 spec i fy e host buffer descriptor and a byte count. In the case of 
3 3460 ! send data, the information in the buffer is read by the remote program 
3 3461 ! and a send date response sent back to the host to acknowledge receipt. 
3 3462 «6! In the case of receive date the remote program writes data into the 
3 3463 ! buffer up to the amount specified by the byte count and then sends oe 
3 or : receive data response to the host to notify it of the transmission. 
. J 

8 3466 ! Tne send date and receive date commands ere only legal when the 
3 3467 ! server is in the active state. If the remote program terminates 
3 3468 ! abnormally, putting the server back in the idle stee, outstanding 
3 3469 ! send date and receive data commands may be lost. In the event that 
3 3470 ! the specified timeout interval is exceeded, the host program should 
3 3471 ! issue a get dust staus command to see if the remote program is 
3 3472 ! still running Cis. the dup server is active); if it is, the 
3 3473 3 progress indicator should be remembered and the timeout interval 
3 3474 3 should be re-installed. If the second timeout expires without eo 
3 3475 3! response and ea second get dust status shows the remote program 
3 3476 3! having made no progress in the interim then the program should be 
; oan : considered broken and should be aborted. 

F 3479 ! Formal Parameters : 

8 3480 ! none 

8 3481 ! 

8 3482 ! Implicit Inputs : 

3 3483 !: NSD_SLOT This global storage gets loaded by the routine 

3 3484 3 ‘Get_nsd’' and in it is stored the next send ring 

3 3485 ! descriptor slot where the port/controller snould 

3 3486 ! be polling on and the place to put this commands 

8 3487 ! command packet. 

; 3488 |! 

3 3489 ! Implicit Outputs : 

8 3490 ! none 

; 3491 ! 

3 3492 ! Completion Codes : 

3 3493 ! RET_STATUS: Return status passes back to the calling routine 

F 3494 3 the status of the just issued command. 

3 3495 ! 

Fy 3496 ! Side Effects : 

F 3497 ! none 

F 3498 !-- 

| #83 

3 in 

Hy 3501 ie 

PF 3502 local 

3 3503 REF _NUM, 'Stores unique cmd ref number 
8 3504 SND _BUF $LOC, 'Stores out$standing cmd buffer location 
3 oor TEMP; 1A place to put read IP register data 
Fy 3507 : 

8 3508 ' Before we load up the command packet up with all this good information 


3509 ! get the next nae 9 descriptor slot and a unique command reference number. 


G16 


SEQ 0201 


o 
] 
3551 ! into the buffer. The return from this routine will point us to the buffer location 
J 
] 
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3 3510 : 

; 3511 GET_NSD (); !Get the next send desc slot 

: tf REF _NUM = GET_CMDSREF (); !Get a unique command ref num 

. , 

: +4 ! UQ Port command envelope Header field definition 

3 H 

: 3516 SNO_ENVELOPE [.NSD_SLOT, MSG_LENGTH] = SZ_SED; tLoad the message size 

F 3517 SNO_ENVELOPE [.NSD_SLOT, CREDITS) = ONE; tLoad the credit size 

3 3518 SND_ENVELOPE [.NSO_SLOT, MSG_TYPE) = 0; !Define the message typ ‘Sequential 
3 ithe SNO_ENVELOPE [.NSD_SLOT, CONN_ID) = DuP; tGefine the connection ID 

. ' 

3 cass ! DUP generic command envelope field definition 

. i] 

3 3523 SNO_ENVELOPE [.NSD_SLOT, CMD_LREF]) = .REF_NUM; tLoad command reference number 
3 3524 SND _ENVELOPE [.NSO_SLOT, CMD_HREF) = ZERO; ‘!Zero Hi order cmd ref number 

; 3525 SNO_ENVELOPE [.NSD_SLOT, UN_LUSED) = ZERO; !Not used in DUP implimentation 

8 3526 SND_ENVELOPE [.NSO_SLOT, UN -HUSED ] * ZERO; '!Not used in DUP implimentation 

; 3527 SNO_ENVELOPE [.NSD_SLOT, OPCODE]) = OP_SED; !Load this commands op-code 

3 3528 SNO_ENVELOPE [.NSD_SLOT, RSVD) = ZERO; !Not used field 

8 4 SND _ENVEL OPE {.NSO_SLOT, MODIFIER] = ZERO; !Define the commands modifiers 

; a4 ! Command specfic command envelope field definition 

3 $ 

3 234 : Byte count of transfer 

; 3535 SND _ENVELOPE {.NSO_SLOT, BLO_CNT) = SNOB_SIZE; !Byte count low word 

8 a4 SND_ENVELOPE [.NSD_SLOT, BHI_CNT) = ZERO; 'Byte count high word 

8 : 

3 ao ! Buffer descriptor definition 

H 8 ' 

3 3540 SNO_ENVELOPE [.NSD_SLOT, BPA_LO) = SNO_BUF; !Buffer physical adrs <0-15> 

3 3541 SND_ENVELOPE [.NSD_SLOT, BPA_HI) = ZERO; !Buffer physical adrs bits <16-17> 
3 3542 SND _ENVELOPE [.NSD_SLOT, QBUS_EXT) = ZERO; !Q_bus extention adrs 

8 3543 SND_ENVELOPE [.NSD_SLOT, RSV) = ZERO; *Reserved field 

F 3544 SNO_ENVELOPE [.NSD_SLOT, UBA_CHAN]) = ZERO; !Unibus adaptor channel number 

3 3545 SNO_ENVELOPE [.NSD_SLOT, RSVO) = ZERO; 'Trese next four words are not 

3 3546 SNO_ENVELOPE [.NSD_SLOT, RSV1]) = ZERO; tused in the UQ Port implementation 
Fy 3547 SND _ENVELOPE [.NSD_SLOT, RSV2) = ZERO; H 

3 pe SND _ENVELOPE [.NSO_SLOT, RSV3) = ZERO; : 

, 3550 ! Call the load out$standing command buffer routine and load this command 

; 3552 ! where this command is stored. Later we can look at this location to 

3 ooae : see if the interrupt service routine has received and process it. 

; 3555 SND_BUF$LOC = LOAD_OUT$STD_BUF (.REF_NUM); !Load the command 

; meee if .SND_BUFSLOC eqlu OBF CODE then DECODE (); ‘Error if buffer is full 

; 3559 : 

3 Sey : Set the ownership bit to 1 giving this slot to the port/controller 

5 : 

Fy em | SEND _RING {.NSD_SLOT, OWN_BIT] = PORT_OWNED; 

$ : 

3 a4 : Read the IP register to stimulate port polling 

8 


3566 TEMP = .RC25_ADDR [RCIP, RC_ALL); 


H16 


SEQ 0202 
ZRCHBS ZRCHBO RC2S DISK FORMATTER 55-Apr-1984 13:46:24 VAX-11 Bliss-16 v3-555 age 
REV B PATCH 00 MODULE DECLARATIONS 11-Jan-1994 13:23:12 SPIDERSUSERS: [NEALE .AZTEC )ZRCHB5S.816;4 (17) 
8 3567 
3 3568 te 
; gtd : Time out the port/controller for the response from this command. 
: : 
3 3571 ! If the controller tim yut then: 
3 357 : 1. See what kind of error was returned. If the error 
8 3573 : is a type other than a CTO_CODE (controller time out) 
3 3574 : then call routine Decode which does the appropriate 
3 a H action based on the error. 
3 8 
; 3577 : 2. If the returned error is san CTO_CODE then do a get 
3 3578 : dust status and check the progress indicator to look 
3 3579 : for an increase, indicating that the remote program is 
3 Soe : still running and is not dead. 
3 1 8 
H 3582 H If the indicator hasn't changed then assume that the 
; 3583 : remote program is dead and return an error code of 
; coos : RPD_CODE (remote program dead code) and exit. 
. a 
3 3586 : If the indicator has changed then assume that the 
3 3587 : remote program is still running, save a copy of its 
3 3588 : value and reinstate the controller time out delay and 
8 3589 $ repeat the loop. 
3 3590 : 
3 3591 : As 1 as the progress indicator in the remote program 
3 4 4 : is still increasing this loop will be repeated for ever. 
H $ 
: 3594 ' If the controller doesn't time then return with the return 
3 3595 ! code returned from routine CTO_WAIT () which could be either 
3 ite | ' a success or error code by definition of this host code. 
H !- 
Fy 3598 
3 3599 while TRUE do tRepeat for ever 
8 3600 begin 
3 3601 BREAK; 'Flag control C's 
3 3602 : 
3 3603 ' Do a controller time out and determine if the controller 
3 os ' has processed the command or if a fatal error has occured. 
H : 
3 3606 
r} 3607 if CTO_WAIT (4000, .REF_NUM, .SNOD_BUF SLOC) ‘Is return an error 
Fy 3608 then ’ 
3 3609 in 
8 3610 ;e 
8 3611 ' If the return status code eql's a CTO_CODE then see if the remote 
3 3612 ! program is still running. If it is then save the progress indicator 
F 194 ! and repeat the loop else call routine Decode (). 
Fy H 
3 3615 
3 3616 if .RET_STATUS eqlu CTO_CODE tIs this a controller time out 
3 3617 then 
; 3618 begin 
8 3619 
3 rey if GET_DUST_STATUS () then DECODE (); !Get the dust status 
s 
F 3622 if .RET_ENSAD (PLO_IND] gtru .PIO_SAVE [0] !Any progress been made 


3623 then 


I16 
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in 
3625 PID_SAVE [0] = .RET_ENSAD [PLO_INO); 'Still running save Pid 
3626 PID_SAVE [1] = .RET_ENSAD [PHI_IND]); 
3627 PRINTB (PID_FMT, .PID_SAVE [1], .PID_SAVE [0]); 
end 


3629 else 


3631 if .RET_ENSAD (PHI_INO) gtru .PIO_SAVE [1] 
3632 —O then 


in ; 
3634 PIO_SAVE [0] = .RET_EN¢AD [PLO_INOD); 'Still running save Pid 
3635 PID_SAVE [1] = .RET_ENSAD [PHI_IND]; 
3636 oe (PID_FMT, .PID_SAVE [1], .PID_SAVE [0]); 


3638 else 
3639 return RET_STATUS = RPD_CODE; !No progress so flag error 


: 
: 
1 


The return status code was not a controller time out code so something 
else is wrong. Call the routine Decode () to find out what went wrorg. 


3647 DECODE () 


: 


else 
! The command has been received by the interrupt service. 


! out$std_buf and check for good return status error and 

$ die if bad status. 

3659 RET_ENSAD = .OUTSSTD_BUF [.SND_BUFSLOC, ENV_ADR];  !Get the ret env adr 
a 


3661 ' Test for good status 
J 


® 
7 
i 
3655s ! Get this commands return envelope address out of the 
o 
‘ 
® 


3664 if .RET_ENSAD [STATUS] nequ ZERO 'Test the status 

then 
return RET_STATUS = RSE_CODE 'Return a “Response status err” code 
3667 else 
return .RET_STATUS; !Tnis ret_status is good or bad 
3670 end; 


3672 end; 


& 
3 


3674 return .RET_STATUS; !It won't compile witnout this nere 
3675 end; 


.SBTTL SEND.DATA MODULE DECLARATIONS 
000000 004167 000000G SEND .DATA:; 


JSR Ri, $SAVE3 3 


v 
& 
wm 
nm 


ZRCHBS 
REV B PATCH 00 


005746 
004767 
004767 
010003 
016746 
012746 


ZRCHBO RC25 DISK FORMATTER 


MODULE DECLARATIONS 


000045 000020G 
000024G 


000000G 000011 
176240 


173512 


1$: 


2s: 


J16 
5-Apr-1984 13:46:24 
11-Jan-1984 13:23:12 


-(SP) 

PC,GET.NSD 

PC ,.GET.CMDSREF 
RO,RS 

NSD. SLOT, -( SP) 

054, - (SP) 

PC BL SMUL 

#34, SND. ENVELOPE(RO) 
@SND .ENVELOPE +2,R1 


R3, SND . ENVELOPE +4( RO) 
SND . ENVELOPE +6(RO) 

SNO . ENVELOPE + 10(RO) 

SNO . ENVELOPE + 12(RO) 

04, SND .ENVELOPE +14(RO) 
SNO . ENVELOPE + 15(RO) 

SND . ENVELOPE + 16(RO) 
@45,SNO .ENVELOPE +20( RO) 
SNO . ENVELOPE +22(RO) 
@SND .BUF , SND .ENVELOPE +24( RO) 
@SND .ENVELOPE +26,R1 
RO,R1 

(R1) 

1(R1) 

SND .ENVELOPE + 30( RO) 

SND . ENVELOPE + 32(RO) 

SNO . ENVELOPE + 34( RO) 
SNO . ENVELOPE + 36( RO) 
R3,(SP) 
PC,LOAD.OUTSSTD.BUF 


R2,-(SP) 
PC,CTO.WAIT 
(SP)+,(SP)« 
RO 


8$ 
i - STATUS, @11 
= -DUST. STATUS 


3$ 
PC ,DECODE 
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«REF .NUM 


REF .NUM, 


REF .NUM, « 


: #,SND.BUF $LOC 
3; SNO.BUFSLOC,¢ 


#,RC$S.REG 
RC$S.REG, TEMP 


REF .NUM, @ 
SNO .BUF $LOC,¢ 


351i 
3512 


3516 


3616 


3620 


ZRCHBS 
REV B PATCH 00 


000322 016701 
000326 010100 


3; Routine Size: 
; Maximum stack 


8 3676 


ZRCHBO RC25 DISK FORMATTER 
MODULE DECLARATIONS 


000000G 33: 
000024 
000000G 
000000G 
000026 000002G 
000002G 
000003 
000026 000002G 4$ 
000000G 
000026 000002G 
000002G 
000000G 
000003 
000006 5$: 
000051 6$: 
173350 7$: 
8$: 
000002G 000000G 
000002G 
000016 
000031 
9$: 
000000G 108: 
000006 11$: 
176 words, Routine Base: 


depth per invocation: 12 words 


AC sCODE 


K16 


5-Apr-1984 13:46:24 
11-Jan-1984 13:23:12 


RET .ENSAD,R1 
R1,RO 
24(RO),RO 
en 


RO,PID. SAVE 
26(R1),PID. SAVE +2 
RO, (SP) 
PID.SAVE+2, -(SP) 
OPID.FMT, -CSP) 
03, -( SP) 

SP ,RO 

14 


S$ 
lait tates 


RO,PID. SAVE 
26(R1),PID.SAVE+2 
RO, (SP) 
PID.SAVE+2, -(SP) 
OPID.FMT, -(SP) 
o3, -(SP) 


RO 
OUT$STO.BUF +2(RO),RET.ENSAD 
OUT$STD.BUF +2(RO),RO 


16(RO) 
10$ 


@31,RO0 

RO,RET.STATUS 

11% 

RET.STATUS,RO 
sP 


PC 


+ 4350 
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F 
3 RET.ENSAD,* 


: PID.SAVE,« 


; SP, 


; PID.SAVE,* 


; SP, 


; SNO.BUFSLOC,« 


3626 
3622 


L16 
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: aera global routine REC_DATA = !Performs host-->port communications 
3 3679 fee 
H 3680 ! Functional Description : 
3 3681 ! These commands are used to communicate between the initiating host 
; 3682 ! program and the remote program. Both send and receive c 
; 3683 ! specify a host buffer descriptor and a byte count. In the case of 
; : send data, the information in the buffer is read by the remote program 
; 3685 ! and a send data response sent pack to the host to acknowledge receipt. 
: 3686 ! In the case of receive data the remote program writes data into the 
: 3687 ! buffer up to the amount specified by the +t Aa count and then sends a 
; 994 : receive data response to the host to noti it of the transmission. 
. . 
3 3690 ! The send data and receive data commands are only legal when the 
3 3691 ! server is in the active state. If the remote program terminates 
3 3692 ! abnormally, putting the server back in the idle stae, outstanding 
Fy 3693 ! send data and receive data commands may be lost. In the event that 
; 3694 ! the specified timeout interval is exceeded, the host program should 
3 3695 ! issue aget dust steus command to see if the remote program is 
3 3696 ! still running Cis. the dup server is active); if it is, the 
3 3697 ! progress indicator should be remembered and the timeout interval 
3 3698 ! should be re-installed. If the second timeout expires without a 
3 3699 ! response anda second get dust status shows the remote program 
3 3700 ! having made no progress in the interim then the program should be 
: aver : considered broken and should be aborted. 
3 . 
3 3703 ! Formal Parameters : 
3 3704 ! none 
3 3705 ! 
8 3706 ! Implicit Inputs : 
3 3707 !3 NSD_SLOT This global storage gets loaded by the routine 
Fy 3708 ! ‘Get_nsd' and in it is stored the next send ring 
8 3709 ?: neni Ae slot where the port/controller should 
8 3710 ! be polling on and the place to put this commands 
3 S721 2 command packet. 
8 3712 ! 
3 3713 ! Implicit Outputs : 
3 3714 ! none 
Fy s71uS 
F 3716 ! Completion Codes : 
8 orayl C8 RET_STATUS: Return status passes back to the calling routine 
8 ike 4 : the status of the just issued command. 
H 3720 ! Side Effects : 
; 3721 3 none 
H 3722 3!-- 
Be Et eg 
o in 
3 3725 ~~ 
3 3726 local 
Fy 3727 REF _NUM, !Stores unique cmd ref number 
H 3728 REC “BUF $LOC, !Stores out$standing cmd buffer location 
3 134 TEMP ; 'A place to put read IP register data 
; 
F 3731 H 
3 3732 ' Before we load up the command packet up with ail this good information 
; 3733 ! get the next send descriptor slot and a unique command reference number. 


M16 
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; 3734 : 
: 3735 GET_NSD (); ¢ 'Get the next send desc slot 
; sree REF _NUM = GET_CMDSREF (); !Get a unique command ref num 
. a 
3 ora : UQ Port command envelope Header field definition 
3 : 
: 3740 SND _ENVELOPE [.NSO_SLOT, MSG_LENGTH]) = SZ_RED; tLoad message length 
3 3741 SNO_ENVELOPE [.NSD_SLOT, CREDITS) = ONE; tLoad credit size 
; 3742 SNO_ENVELOPE [.NSD_SLOT. MSG_TYPE) = 0; !Define message type ‘Sequential’ 
: Beek SND_ENVELOPE [.NSO_SLOT, CONN_ID) = DUP; 'Define connection ID 
: 44 q 
3 dee : DUP generic command envelope field definition 
; 3747 SND_ENVELOPE [.NSD_SLOT, CMD_LREF] = .REF_NUM; !Load command reference number 
; 3748 SND_ENVELOPE [.NSD_SLOT, CMD_HREF] = ZERO; !Zero Hi order cmd ref num 
; 3749 SND _ENVELOPE { .NSD_ OT, UN_LUSED) = ZERO; !Not used in DUP implimentation 
; 3750 SND_ENVELOPE [.NSD_SLOT, _HUSED) = ZERO; !Not used in DUP implimentation 
3 3751 SND_ENVELOPE [.NSD_SLOT, OPCODE) = OP_RED; ‘Load this commands op-code 
3 3752 SND_ENVELOPE [.NSD_SLOT, RSVD]) = ZERO; !Not used field 
3 bey SNO_ “ENVELOPE [.NSD_SLOT, MODIFIER] = ZERO; !Define this commands modifiers 
3 . 
3 erae : Command specfic command envelope field definition 
3 _ 
3 ded : Byte count of transfer 
; 3759 SND _ENVELOPE {.NSO_SLOT, BLO_CNT) = RECB_SIZE; !Byte count low word 
’ Prat SND _ENVELOPE {.NSD_SLOT, BHI_CNT) = ZERO; !Byte count high word 
7 . 
3 one ' Buffer descriptor definition 
H 6 H 
3 3764 SND_ENVELOPE [.NSD_SLOT, BPA_LO) = REC_BUF; !Low unibus adrs <0-15> 
3 3765 SND_ENVELOPE [.NSD_SLOT, BPA_HI) = ZERO; 'Unibus adrs bits <16-17> 
3 3766 SND _ENVELOPE { .NSD_ SLOT, Q@BUS_EXT] = ZERO; !Q_bus extention adrs 
8 3767 SND_ENVELOPE {.NSD_SLOT, RSV) = ZERO; 'Reserved field 
3 3768 SNO_ENVELOPE [.NSD_SLOT, as CHAN) = ZERO; !Unibus adaptor channel nunber 
3 3769 SND _ENVELOPE {.NSD_SLOT, R SVO) = ZERO; 'These next four words are not 
8 3770 SND_ENVELOPE [.NSD_SLOT, RSV1] = ZERO; ‘used in the UQ Port implementation 
3 3771 SND _ENVELOPE [.NSD_SLOT, RSV2] = ZERO; : 
3 Lhd | SND _ENVELOPE {.NSD_SLOT, RSV3) = ZERO; : 
; . 
; 3774 ' Call the load out$standing command buffer routine and load this command 
3 3775 ! into the buffer. The return from this routine will point us to the 
Fy 3776 ' buffer location where this command is stored. Later we can look at this 
; ene : lecation to see if the interrupt service routine has received and process 
8 : i. 
3 3779 H : 
FY hy REC_BUFS$LOC = LOAD_OUTSSTD_BUF (.REF_NUM); !Load the command 
; 3782 if .REC_BUFSLOC eqlu OBF_CODE then DECODE (); ‘Error if buffer is full 
5 
Fy 3784 : 
F oreo : Set the ownership bit to 1 giving this slot to the port/controller. 
3 H 
Fy jade SEND _RING {.NSD_SLOT, OWN_BIT] = PORT_OWNED; 
3 ! 
; 3789 ! Read the IP register to stimulate port polling 
3 


3790 : 


Bi 
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3 3791 TEMP = .RC25_ADDR [RCIP, RC_ALL]); 
: 3792 
3 3793 $e 
3 cies ! Time out the port/controller for the response from this command. 
3 9 H 
3 3796 ! If the controller times out then: 
; 3797 : 1. See what kind of error was returned. If the error 
; 3798 : is @ type other than a CTO_CODE (controller time out) 
: 3799 : then call routine Decode which does the appropriate 
3 foot : action based on the error. 
3 1 H 
: 3802 ’ 2. If the returned error is en CTO_CODE then do a get 
3 3808 $ dust status and check the progress indicator to look 
3 3804 : for an increase, indicating that the remote program is 
3 co : still running and is not dead. 
3 : 
8 3807 H If the indicator hasn't changed then essume that the 
3 3808 : remote program is desd end return an error code of 
: oe ¢ RPD_CODE (remote program dead code) and exit. 
Fy : 
3 3811 ’ If the indicator nas changed then assume that the 
3 3812 4 remote progrem is still running, save a copy of its 
8 3813 : velue and reinstate the controller time out delay and 
: 3814 : repeat the loop. 
ry 3815 H 
3 3816 : As l es the progress indicetor in the remote program 
H eete Hy is still increasing this loop will be repeated for ever. 
é $ 
8 3819 ' If the controller doesn't time then return with the return code 
Fy 3820 ! returned from routine CTO_WAIT () which could be either a success 
8 3821 ! or error code by definition of this host code. 
8 3822 $- 
8 3823 
: 3824 while TRUE do ‘Repeat for ever 
: 3825 in 
8 3826 BREAK; !Flag control C's 
H 38627 ’ 
8 3828 ' Do a controller time out and determine if tne controller 
H 34 ' has processed the command or if a fatal error has occured. 
3 H ‘ 
3 3831 
8 3832 if CTO_WAIT (8000, .REF_NUM, .REC_BUFSLOC) ‘Is return an error 
3 te then 
& in 
3 3835 ;" 
3 3836 ! If the return status code eql's oe CTO_CODE then see if the remote 
; 3837 ! program is still running. If it is then save the progress indicator 
3 oe ! and repeat the loop else call routine Decode (). 
3 $ 
3 3840 
8 3841 if .RET_STATUS eaqlu CTO_CODE 'Is this a controller time out 
ORS sag 
1 mn 
F 3844 bee 
3 oes if GET_DUST_STATUS () tnhen DECODE (); !Get the dust status 
; 6 
F 3847 if ,RET_ENSAD [PLO_IND) gtru .PID SAVE [0] !Any progress been made 
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3848 then 


in 
3850 P18. SAVE (0) = .RET_ENSAD [PLO_IND); !Still running save Pid 
3851 PID_SAVE [1] = .RET_ENSAD [PHI_IND); 
3852 ee (PID_FMT, .PID_SAVE [1], .PID_SAVE [0)); 


3854 else 
3856 if ,RET_ENSAD [PHI_IND]) gtru .PID_SAVE (1) 
then 


38658 in 

3859 PID_SAVE (0) = .RET_ENSAD [PLO_IND); 'Still running save Pid 
3860 PIO_SAVE [1] = .RET_ENSAD [PHI_IND]); 

3861 PRINTB (PID_FMT, .PID_SAVE (1), .PID_SAVE [01); 

3862 end 

3863 else 

3864 return RET_STATUS = RPD_CODE; !No progress so flag error 


3366 end 
3867 else 


3869 ! The return stetus code was not a controller time out code so something 
387 ! else is wrong. Call the routine Decode () to find out what went wrong. 
] 


3872 DECODE ( ) 
3874 end 
3875 else 
3876 begin 
s] 

The command has been received by the interrupt service. 
Get this commands return envelope address out of the 
out$std_buf and check for good return status error and 
! die if bad stetus. 

RET_ENSAD = .OUTSSTD_BUF [.REC_BUFSLOC, ENV_ADR]; !Get the ret env adr 
: 
: 


‘ Test for good status 


w 
2 
°o 


3889 if ,RET_ENSAD [STATUS] nequ ZERO 'Test the status 
then 
3891 return RET_STATUS = RSE CCDE !Return a “Response status err” code 
3892 else 
3893 return .RET STATUS; !Tnhis ret_status is good or bad 
3895 end; 


3897 end; 


Se Ge Ge Ge Gt Ge Ge Gs Ge GH GF Gt Ge GF Gt Gs Gs Gt GF Os Gt Gs © GF BF Gs Ge Ge GF OF Gs Ge Gs GF SH Gs OF GF Gs OF GF OF os Ge OF &F oe OF OF OF © oF oF 
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@ 
“4 
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3899 return .RET_STATUS; 'It won't compile without this here 
3900 end; 


-SBTTtL = REC.DATA MODULE DECI ARATIONS 
000000 004167 000000G REC .DATA; ; 


ZRCHBS 


REV 8 PATCH 00 


ZRCHBO RC25 DISK FORMATTER 


MODULE DECLARATIONS 


173026 
173170 


000005 000014G 


000170 000020G 
000024G 


172712 
002001 
173056 
000000G 


000000G 000011 
175500 


1$: 


2s: 


55-Apr-1984 13:46:24 
11-Jan-1984 13:23:12 


R1, $SAVES 
tp 


PC,GET.NSOD 

RO,R3 

NSOD.SLOT, -( SP) 

054, -(SP) 

PC BL SMUL 

@34 ,SND.ENVELOPE(RO) 
@SNO .ENVELOPE +2,R1 
RO,R1 

#1,(R1) 

#2,1(R1) 
R3,SND.ENVELOPE -4(RO) 
SNO . ENVELOPE +6( RO) 

SNO . ENVELOPE + 10(RO) 
SND. ENVELOPE + 12(RO) 
0S, SND .ENVELOPE +14(RO) 
SNO . ENVELOPE + 15(RO) 
SND. ENVELOPE + 16(RO) 
#170,SNO. ENVELOPE +20( RO) 
SNO . ENVELOPE +22(RO) 
@REC .BUF , SND. ENVELOPE +24(RO) 
@SNO .ENVELOPE +26,R1 


1) 
SND . ENVELOPE + 30( RO) 
SND .ENVEL OPE + 32(RO) 
SNO . ENVELOPE + 34( RO) 
SNO . ENVELOPE + 36(RO) 
R3,(SP) 
PC,LOAD.OUT$STO.BUF 


1$ 

PC ,DECODE 
NSO.SLOT,RO 
RO 

RO 
SEND.RING,RO 
#100000 ,2(RO) 
@RC25. ADDR , 4( SP ) 
4(SP),RO 

22 
#17500,(SP) 
R3, -(SP) 

Re, -( SP) 
PC.CTO.WAIT 
eA oe 


8$ 

— STATUS, #11 

Pe, GET .DUST. STATUS 
3s 
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@, REF .NUM 


REF .NUM,« 


REF .NUM,« 


« ,REC.BUF $LOC 
REC .BUF $LOC,¢ 


#,RC$S.REG 
RC$S.REG, TEMP 


REF .NUM, « 
REC .BUF $LOC,¢ 


3677 


3735 
3736 


3740 


3741 


3742 
3743 
3747 
3748 
3749 


384) 
3835 
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172752 
000000G 3$: 


000024 


000026 0000026 


000026 000002G 4$: 


000026 000002G 


000006 S$: 
000051 6%: 
172610 7$: 

8$: 


9$: 


000000G 10%: 
000006 11%; 


*76 words, Routine Base: 
depth per invocation: 12 words 


AC sCODE 


E 1 


5-Apr-1984 13:46:24 
11-Jan-1984 


PC ,DECODE 
RET. ENSAD,R1 
R1,RO 
24(RO),RO 
ry PID. SAVE 


RO, PIO.SAVE 
26(R1),PID. SAVE +2 
RO,(SP j 

PID. SAVE +2, -(SP) 
OPID.FMT, -(SP) 
@3,-(SP) 

SP ,RO 

14 


S$ 
+ aa iiaasipctncn tis 


6 

RO,PIO.SAVE 
26(R1),PID.SAVE+2 
RO, (SP) 
PID.SAVE+2, -(SP) 
OPID.FMT, -(SP) 


OUT$STD.BUF +2(RO),RET.ENSAD 
OUT$STD.BUF +2(RO),RO 


16(RO) 


io) 
RO, RET. STATUS 


11$ 
RET.STATUS,RO 
#6, SP 

PC 


+ 5110 
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; RET.ENSAD,* 


; PID.SAVE,«¢ 


; SP,« 


; PIO.SAVE,+¢ 


; SP,« 


; REC.BUFSLOC,+¢ 


ra 
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: Soot global routine SET_CNTLR_CHAR = !Sets control characteristics 
3 
: 3904 fee 
3 3905 ! Functional Description 
3 3906! The SET CONTROLLER CHARACTERISTICS command is used to set host 
3 3907 ! settable unit characteristics and obtain those unit 
: 3908 ! characteristics thet are essential for proper class driver 
3 3909 ! operation. This command never alters the unit's state 
; 3910 ! C"unit-online”, “unit-aveilable”, “unit-offline”). It is 
3 3911 ! meaningless to set host settable characteristics for a unit 
8 3912 ! that is "unit-available” or "unit-offline”. 
Fy SMS ft 
3 3914 ! Formal Parameters : 
: 3915 ! none 
H 3916 ! 
: 3917 ! Implicit Inputs : 
F 3918 ! NSD_SLOT This global storage gets loaded by the routine 
3 3919 ! ‘Get_nsd' and in it is stored the next send ring 
: 3920 ! descriptor slot where the port/controller should 
3 3921 ! be polling on and the place to put this commands 
Fy 3922 3! command packet. 
3 3923 3! 
3 3924 ! 
$ 3925 ! Implicit Outputs : 
Fy 3926 |! none 
Fy 3927 ! 
3 3928 ! Completion Codes : 
$ 3929 ! RET_STATUS: Return status passes back to the calling routine 
A a HY the status of the just issued command. 
H $ 
3 3932 ! Side Effects : 
8 3933 3! Any previously defined controller characteristics will possibly 
; tel : be altered after execution of this command. 
F 3936 
; 3937 begin 
3 3938 
3 3939 local 
r} 3940 REF _NUM, 'Stores unique cmd ref number 
3 3941 scc “BUF $LOC, 'Stores out$standing cmd buffer location 
; tes | TEMP ; 'A place to put read IP register data 
H 3944 : 
; 3945 ! Before we load up the command packet up with all this good information 
H aeet : get the next me descriptor slot and a unique command reference number. 
3 3948 GET_NSD 0); 'Get the next send desc slot 
3 cee REF _NUM = GET_CMDSREF (); 'Get a unique command ref num 
H 4 
3 464! ! UQ Port command envelope Header field definition 
Fy H 
3 3953 SND _ENVELOPE [.NSD_SLOT, MSG_LENGTH] = SZ SCC; tLoad message length 
3 3954 SND _ENVELOPE [.NSO_SLOT, CREDITS) = ONE; ‘Load credit size 
3 3955 SND_ENVELOPE [.NSD_SLOT, MSG_TYPE]} = 0; !Define message type ‘Sequential’ 
Fy oe SND _ENVELOPE [.NSO_SLOT, CONN_ID) = MSCP; !Define connection ID 
8 5 H 


3958 ! MSCP generic command envelope field definition 


Gl 
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3 3959 H 
; 3960 SNO_ENVELOPE [.NSD_SLOT, CMD_LREF]) = .REF_NUM; tLoad command reference number 
3 3961 SND _ENVELOPE [.NSD_SLOT, CMD_HREF]) = ZERO; !Zero Hi order cmd ref num 
8 3962 SND _ENVELOPE [.NSD_SLOT, UN_LUSED] = ZERO; !Not used in DUP implimentation 
3 3963 SND_ENVELOPE [.NSD_SLOT, UN_HUSED] = ZERO; !Not used in DUP implimentation 
3 3964 SNO_ENVELOPE [.NSD_SLOT, OPCODE] = OP_SCC; !Load this commands op-code 
3 3965 SNO_ENVELOPE [.NSD_SLOT, RSVD) = ZERO; !Not used field 
: oone SNO_ENVELOPE [.NSD_SLOT, MODIFIER] = ZERO; !Define this commands modifiers 
3 : 
3 tes ! Command specfic command envelope field definition 
$ 9 3 
3 3970 SND_ENVELOPE [.NSO_SLOT, MSCP_VER) = ZERO; !MSCP version 
’ 3971 SND _ENVELOPE [.NSD_SLOT, CTL_FLAGS) = ZERO; !Controller flags 
3 3972 SND_ENVELOPE [.NSD_SLOT, HOST_TOV] = ZERO; ‘Host time out value 
3 3973 SND_ENVELOPE [.NSO_SLOT, RS$VD) = ZERO; ‘Reserved 
3 3974 SNOD_ENVELOPE [.NSD_SLOT, T$D_0]) = ZERO; !Time and Date word 0 
Fy 3975 SNO_ENVELOPE [.NSO_SLOT, T$0_1] = ZERO; !Time and Date word 1 
3 3976 SND_ENVELOPE [.NSD_SLOT, T$0_2) = ZERO; !Time and Date word 2 
8 3977 SND_ENVELOPE [.NSD_SLOT, T$D0_3) = ZERO; !Time and Date word 3 
; 3978 SND _ENVELOPE [.NSD_SLOT, COP_LO) = ZERO; !Cntlr dep parameter lo word 
8 abe SND_ENVELOPE [.NSD_SLOT, CDP_HI) = ZERO; !Cntlr dep parameter hi wrd 
. t 
3 3981 ! Call the load out$standing command buffer routine and load this command 
3 3982 ! into the buffer. The return from this routine will point us to the 
3 3983 ! buffer location where this command is stored. Later we can look at this 
3 tee ! location to see if the interrupt service routine has received and process it. 
3 8 
3 oe SCC_BUFSLOC = LOAD_OUTSSTD_BUF (.REF_NUM); ‘!Load the command 
; tend if .SCC_BUFSLOC eqlu OBF _CODE then DECODE (); ‘Error if buffer is full 
: 3990 : 
: 448 ! Set the ownership bit to 1 giving this slot to the port/controller 
; : 
3 os SEND_RING [.NSD_SLOT, OWN_BIT] = PORT_OWNED; 
H 4 
H oo : Read the IP register to stimulate port polling 
; 3997 TEMP = .RC25_ADDR [RCIP, RC_ALL]; 
8 3998 H 
; is : Time out the port/controller processing the command. 
; 4001 ; Tne first test tests the connections ability to 
F 4002 ! respond to this command without any errors in the SA 
; ot : register and for the command not timing out. 
3 H 
Hy 4005 ! The second tests the DUP server for good status. If 
3 4006 ! bad status is sent back then an error code is returned 
H 4007 ! to the calling routine where the routine “decode” will 
F 4008 ! decode and take the appropriate recovery. Tne time 
; 4009 ! out routine will loop on delaying and checking the hi 
5 4010 ! bit of the first word in the out$std_buf for a true. 
3 4011 ! When true signals us that the interrupt service routine 
8 4012 ! has received the endpacket and no connection errors 
Fy aoa ' were detected. 
H H 
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4016 
4017 
4018 
4019 
4020 
4021 
4022 
4023 
4024 
4025 
4026 
4027 
4028 


010001 
020127 


ZRCHBO RC25 DISK FORMATTER 


Get 
at 
for good status error and die if bad status was returned 


.REF _NUM, 


Hi 


5-Apr-1984 13:46:24 
11-Jan-1984 13:23:12 


.SCC_BUFSLOC) then DECODE (); 


the return envelope address from the out$std_buf 


this commands buffer location and check the packet 


RET_ENSAD = 
, 


.OUTSSTD_BUF [.SCC_BUFSLOC, ENV_ADR); 


! Now test for good status 
| 


if .RET_ENSAD [STATUS] nequ ZERO 
return RET_STATUS = RSE_CODE 
return .RET_STATUS; 


then 


else 


end; 


000000G 


172266 
172430 


172160 
002001 


000014G 


'Test the status 


'Is return an error 


'Get the ret env adr 


‘Return a "Response status err” code 


!This ret_status is good or bad 


.SBTTL SET.CNTLR.CHAR MODULE DECLARATIONS 


SET.CNTLR.CHAR;: ; 
JSR 


R1, $SAVE2 
-(SP) 
PC,GET.NSO 
a 


RO,R2 

NSD .SLOT, -( SP) 

054, -(SP) 

PC BL $MUL 
@40,SNO.ENVELOPE(RO) 
@SNO.ENVELOPE+2,R1 
RO,R1 

#1,(R1) 

1(R1) 

R2,SND. ENVELOPE +4(RO) 
SND . ENVELOPE +6( RO) 
SND . ENVELOPE + 10(RO) 
SND .ENVELOPE + 12(RO) 
04 ,SND.ENVELOPE +14(RO) 
NOD .ENVELOPE +15(RO) 
SNO .ENVELOPE + 16(RO) 
SND . ENVELOPE +20( RO) 
SND . ENVELOPE +22(RO) 
SNO. ENVELOPE +24(RO) 
SND . ENVELOPE +26( RO) 
SND .ENVELOPE + 30( RO) 
SND. ENVELOPE + 32(RO) 
SND .ENVELOPE + 34(RO) 
SND .ENVELOPE + 36( RO) 
SND .ENVELOPE +40( RO) 
SND .ENVELOPE +42( RO) 
Re, (SP) 
PC,LOAD.OUT$STD. BUF 
RO,R1 

R1,#2001 


«,REF .NUM 


REF .NUM,« 


REF .NUM,¢ 


; *,SCC.BUF $LOC 
; SCC.BUFSLOC,« 
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3902 


3948 
3949 
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; Routine Size: 
; Maximum stack 


3 4035 


ZRCHBO RC25 DISK FORMATTER 
MODULE DECLARATIONS 


172324 
000000G 
000000G 

100000 000002 
000000G 000004 
000004 

0056 70 


174264 


172242 


2s: 


000000G 3$: 
000006 4$: 


114 words, 


1$; 


Routine Base: 
depth per invocation: 9 words 


Il 


S-Apr-1984 13:46:24 
11-Jan-1984 13:23:12 


1$ 

PC ,OECODE 
NSD.SLOT,RO 
RO 


RO 

SEND .RING,RO 
#100000, 2(RO) 
@RC2S5. ADDR, 4( SP) 
4(SP),RO 
#5670,(SP) 
R2,-(SP) 

Rl, -(SP) 
PC,CTO.WAIT 
(SP)+,(SP)-+ 
RO 


es 

PC ,DECODE 
R1,RO 

RO 


RO 

OUT$STD.BUF +2(RO),RET.ENSAD 
OUT$STD.BUF +2(RO),RO 

16(RO) 

3$ 

#31,RO0 

ae" RET. STATUS 


RET. STATUS,RO 


ACSCODE + S650 
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#,RC$S.REG 
RC$S.REG, TEMP 


REF .NUM,¢ 
SCC .BUF $LOC,¢ 


SCC .BUF $LOC,« 


3993 


3997 
4016 


Jl 
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: ree] global routine ON_LINE = !Makes a unit come online to a host 
3 4 
: 4038 fe. 
; 4039 ! Functional Description : 
: 4040 ! The online command is used to bring a unit “unit-online, set 
3 4041 ! host settable unit character istics and obtain those unit 
: 4042 ! characteristics that are essential for proper class driver 
; 4043 ! operation. The unit is spun-up, if necessary, and is heads 
3 4044 ! ere loaded prior to returning the online command's end 
: 4045 ! message. Host settable characteristics are set exactly as if 
3 4046 ! a set unit cheracter istics command were issued. Host settable 
3 4047 ! characteristics are set after the unit has been successfully spun-up 
; 4048 ! and any other validity checks have succeded. Note that the unit's 
3 4049 ! host settable characteristics are not altered if the unit is already 
Fy 4050 ! "“unit-online”. 
3 4051 ! 
3 4052 ! Formal Parameters : 
Fy 4053 ! none 
3 4054 ! 
3 4055 ! Implicit Inputs : 
3 40se ! NSD_SLOT This global storage gets loaded by the routine 
F 4057 ! 'Get_nsd' and in it is stored the next send ring 
3 4058 ! descriptor slot where the port/controller should 
3 4059 ! be polling on and the place to put this commands 
H 4060 ! command packet. 
H 4061 ! 
$ 4062 ! Implicit Outputs : 
3 4063 ! none 
H 4064 ! 
3 4065 ! Completion Codes : 
3 4066 ! RET_STATUS: Return status passes back to the calling routine 
3 rowed : the status of the just issued command. 
H g 
3 4069 ! Side Effects : 
F 4070 ! Any previously defined controller characteristics will possibly 
F oork : be altered after execution of this command. 
3 §-- 
; 4073 
H 4074 in 
H 4075 =e 
3 4076 local 
H 4077 REF _NUM, !Stores unique cmd ref number 
3 4078 ONL _BUFSLOC, !Stores out$standing cmd buffer location 
8 po TEMP; 'A place to put read IP register data 
8 4081 H 
8 4082 ! Before we load up the command packet up with all this good information 
; rey ! get the next send descriptor slot and a unique command reference number. 
H H 
F 4085 GET_NSD (); 'Get the next send desc slot 
8 ooat REF _NUM = GET_CMDSREF (); 'Get a unique command ref num 
H : ¥ 
; eee ' UQ Port command envelope Header field definition 
“3 : 
F 4090 SND _ENVELOPE [.NSD_SLOT, MSG_LENGTH) = SZ_ONL; tLoad message length 
F 4091 SND_ENVELOPE [.NSD_SLOT, CREDITS] = ONE; tLoad credit size 
F 


4092 SND_ENVELOPE [.NSD_SLOT, MSG_TYPE] = 0; !Define message type ‘Sequential’ 


Kd 
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8 pote SNO ENVELOPE {.NSO_SLOT, CONN_ID) = MSCP; !Define connection ID 
3 H 
; pees ! MSCP generic command envelope field definition 
. g 
; 4097 SNO_ENVELOPE [.NSD_SLOT, CMD_LREF) = .REF_NUM; t!Load command reference number 
3 4098 SND_ENVELOPE [.NSD_SLOT, CMD_HREF] = ZERO; !Zero Hi order cmd ref num 
3 4099 SND_ENVELOPE [.NSD_SLOT, UNIT_NUM] = .UNIT_NO; !Select unit to bring online 
F 4100 SND_ENVELOPE [.NSD_SLOT, UN_HUSED) = ZERO; !Not used in DUP implimentation 
3 4101 SND_ENVELOPE [.NSD_SLOT, OPCODE] = OP_ONL; !Load this commands op-code 
3 4102 SNO_ENVELOPE [.NSD_SILOT, RSVO) = ZERO; !Not used field 
$ ries SNO_ENVELOPE [.NSD_SLOT, MODIFIER) = JER; !Define this commands modifiers 
3 1 g 
3 atae : Command specfic command envelope field definition 
: 4107 SND_ENVELOPE [.NSD_SLOT, RSV$D) = ZERO; Reserved 
: 4108 SND_ENVELOPE [.NSO_SLOT, UNT -FLAGS } s ZERO; !Unit flag field 
8 4109 SND_ENVELOPE [.NSD_SLOT, RSVD$O] = ZERO; !Reserved field 
3 4110 SND_ENVELOPE [.NSO_SLOT, RSVD$1) = ZERO; 'Reserved field 
3 4111 SND_ENVELOPE [.NSD_SLOT, RSVD$2) = ZERO; !Reserved field 
8 4112 SND_ENVELOPE [.NSD_SLOT, RSVD$3) = ZERO; 'Reserved fieid 
3 4113 SNO_ENVELOPE [.NSD_SLOT, RSVD$4) = ZERO; 'Reserved field 
: 4114 SNO_ENVELOPE [.NSD_SLOT, RSVD$5] = ZERO; tReserved field 
3 4115 SND_ENVELOPE [.NSO_SLOT, DDP_LO) = nee !Device dependent parameter 
3 4116 SND_ENVELOPE [.NSD_SLOT, DDOP_HI]) = ZERO; !Device dependent parameter 
; 4117 SNO_ENVELOPE [.NSD_SLOT, SHADOW Mary) = ZERO; !Shadow unit 
3 ret SND_ENVELOPE [.NSD_SLOT, COPY_SPEED] = ZERO; !Copy speed 
H H 
3 4120 ! Call the load out$standing command buffer routine 
Fy 4121 ! and load this command into the buffer. The return 
’ 4122 ! from this routine will point us to the buffer location 
3 4123 ' where this command is stered. Later we can look at 
3 4124 ! this location to see if the interrupt service routine 
3 reat : has received and process it. 
3 H 
$ r+ 34 ONL _BUFSLOC = LOAD_OUTSSTD_BUF (.REF_NUM); !Load the command 
; 4129 if .ONL_BUFSLOC eqlu OBF _CODE then DECODE (); ‘Error if buffer is full 
$ 
H 4131 H 
; rps : Set the ownership bit to 1 giving this slot to the port/controller 
; 4134 SEND RING (.NSD_SLOT, OWN_BIT] = PORT_OWNED; 
PF H 
8 aise : Read the IP register to stimulate port polling 
; 4138 TEMP = .RC25_ADDR [RCIP, RC_ALL]; 
3 H 
; tat : Time out the port/controller processing the command. 
3 H 
$ 4142 ! The first test tests the connections ability to 
H 4143 ' respond to this command without any errors in the SA 
F ee register and for the command not timing out. 
; 4146 ! The second tests the DUP server for good stetus. If 
; 4147 : bad status is sent back then an error code is returned 
; 4148 ! to the calling routine where the routine “decode” will 
3 4149 ! decode and take the appropriate recovery. The time 


Li 


SEQ 0218 
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; 4150 ! out routine will loop on delaying and checking the hi 
: 4151 ' bit of the first word in the out$std_buf for a true. 
; 4152 : When true signals us that the interrupt service routine 
8 4153 : has received the endpacket and no connection errors 
3 4154 ! were detected 
wes fe 
8 
: 4157 if CTO_WAIT CONE_MINUTE, .REF_NUM, .ONL_BUFSLOC) then DECODE (); tIs return an error 
: 4158 
8 4159 : 
3 4160 ' Get the return envelope address from the out$std_buf 
8 4161 ! at this commands buffer location and check the packet 
: Pty ! for good status error and die if bad status was returned 
F 416 ! 
8 tre RET_ENSAD = .OUTSSTD_BUF [.ONL_BUFSLOC, ENV_ADR); 'Get the ret env adr 
H 1 H 
: 4166 ! Now test for good status 
: 4167 : 
3 4168 
; 4169 if .RET_ENSAD [STATUS] nequ ZERO !Test the status 
H 4170 then 
: ai 73 . return RET_STATUS = RSE_CODE 'Return a "Response status err” code 
3 4172 else 
3 r+ fh return .RET_STATUS; !This ret_status is good or bad 
H 4174 
3 4175 end; 

.SBTTL ON.LINE MODULE DECLARATIONS 
000000 004167 000000G ON.LINE:: 

JSR R1,$SAVE2 3 4036 
000004 005746 TST -(SP am 
000006 004767 171722 JSR PC,GET.NSO 3 4085 
000012 004767 172064 JSR PC ,GET.CMOSREF 3 4086 
000016 010002 MOV RO.R 2 3; *,REF.NUM 
000020 016746 MOV NSD. SLOT, -( SP) 3 4090 
000024 012746 000054 MOV @54,-(S 
000030 004767 000000G JSR PC ,BL $MUL 
000034 012760 000044 000000G MOV 044, SND .ENVELOPE( RO) 
000042 012701 000002G MOV @SND. ENVELOPE +2,R1 3 4091 
000046 ADD ss 
000050 112711 000001 MOVB #1,(R1) ; 4092 
000054 105061 000001 CLRB 1(R1) 3 40953 
000060 010260 000004G MOV R2,SNO.ENVELOPE +4(RO) 3; REF .NUM,« 4097 
000064 000006G CLR SND .ENVELOPE +6( RO) 3 4098 
000070 016760 000000G 000010G MOV UNIT.NO,SNO.ENVELOPE + 10( RO) F 4099 
000076 000012G CLR SND .ENVELOPE +12(RO) 3 4100 
000102 112760 000011 000014G MOVB #11,SND.ENVELOPE +14(RO) 3 4101 
000110 105060 000015G CLRB SND .ENVELOPE +15(RO) 3 4102 
000114 005060 000016G CLR SND .ENVELOPE +16(RO) 3 4103 
000120 005060 000020G CLR SNO ..ENVELOPE + 20( RO) F 410? 
000124 005060 000022G CLR SND .ENVELOPE +22(RO) 3 4108 
000130 005060 000024G CLR SND ..ENVELOPE +24(RO) : 4109 
000134 005060 000026G CLR SND .ENVELOPE +26( RO) 3 4110 
000140 005060 000030G CLR SND .ENVELOPE « 30( RO) 3 4111 
000144 005060 000032G CLR SND .ENVELOPE + Z2(RO) 3 4112 
000150 005060 000034G CLR SND ..ENVELOPE + 34( RO) F 4113 
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; Maximum stack 


H 4176 
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002001 
171746 
000000G 


000000G 
100000 000002 
000000G 


000004 
165140 


173706 


171664 


2s: 


000000G 3$: 
000006 4$: 


119 words, 


1$: 


Routine Base: 
depth per invocation: 9 words 


AC sCODE 


M1 


5-Apr-1984 13:46:24 
11-Jan-1984 13:23:12 


SND .ENVELOPE + 36( RO) 
SND. ENVELOPE +40(RO) 
SND ..ENVELOPE +42(RO) 
SND .ENVELOPE +44(RO) 
SND . ENVELOPE +46( RO) 
R2,(SP) 

PC ,LOAD.OUT$STO.BUF 
RO,R1 


Ri ‘2001 

PC, DECODE 
NSO. SLOT ,RO 
RO 


RO 

SEND .RING,RO 
#100000, 2(RO) 
@RC25. ADDR, 4¢ SP) 
4(SP),RO 

ge 25 at 


PC, cto. WAIT 
(SP)+,(SP)+ 
RO 


2s 

PC ,DECODE 
R1,RO 

RO 


RO 

OUT$STO.BUF +2(RO),RET.ENSAD 
OUT$STO.BUF +2(RO),RO 

a 


#31,RO 
RO,RET.STATUS 
4$ 
RET.STATUS,RO 


+ 6214 
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REF .NUM,# 


#, ONL . BUF $LOC 
ONL .BUF SLOC,* 


*#,RC$S.REG 
RC$S.REG, TEMP 


REF .NUM, 
ONL .BUF SLOC, 


ONL .BUF SLOC,# 


4114 
4115 
4116 
4117 
4118 
4127 


4129 


4134 


4138 
4157 


4164 


4169 


4171 
4074 
4036 


Ni 
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3 atte global routine INT$I_SERVICE : INT_LNKSTYP novalue = !Init sequence interrupt catcher 
H 1 . 
3 4179) fee 
3 4180 ! Functional Description : 
’ 4181 ! During the initialization sequence the IE bit is defined to be 
; 4182 ! @ zero. This means that the host is not requesting interrupts at 
3 rte : the completion of steps 1-3. 
H 1 
3 4185 ! Note that no initerrupt will be generated at the completion of 
H tet H step 4 since this step rquires only s small number of time. 
: 418 $ 
3 4188 ! This interrupt service routine serves to catch any interrupts that the 
3 4189 ! controller might issue during the initialization sequence. he 
Fy tee : interrupt is ignored and control is returned. 
H a = 
; 4192 ! This interrupt service routine is also used os the RC25 register 
3 ates ] existence test in determining whether P_Table RC25 registers exist. 
3 1 $ 
F 4195 ! Formal Parameters : 
H 4196 ! none 
3 4197 ! 
: 4198 ! Implicit Inputs : 
3 4199 ! NEX_FLAG A flag which is loaded with zeros during the RCOS register 
3 4200 ! existence test and set to all ones by ths routine in tne 
8 yee} ’ event of attempts to read a non ex stent RC25 controller. 
H g 
8 4203 ! Implicit Outputs : 
3 4204 ! NEX_FLAG Is returned with all ones in tre event of RCZ5 nor e- stent 
; 4205 ! register access attempts. 
H 4206 ! 
; 4207 ! Complet’on Codes : 
3 4208 ! none 
3 4209 ! 
3 4210 ! Side Effects : 
3 4211 ! none 
3 4212 !-- 
3 4213 
: 4214 begin 
H 4215 NEX_FLAG = ONES; ting cate t™ s terrupt occured 
H 4216 return; 
H 4217 end; 
7 SBTTL INTSI.SERVICE MODLAE DEC. ARATION 
000000 012767 177777 000000G INTSI. SERVICE: 
Ov @ i NWEX FLAG : 425" 
000006 000002 RTI ‘ s:c° 
; Routine Size: 4 words, Routine Base: ACSCODE - oS” . 
; Maximum stack depth per invocation: 0 words 


H 4218 
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global routine IS_TIMER (SEQ_NO) = !Init sequence time out 


ee 

Functional Description : 
Steps 1-3 of the init sequence, each are required to complete within 
10 seconds. If any of these steps fails to complete within that period, 
this is to be treated as a host detected fatel error. 


This routine will do one us delays for a total of 10 seconds. After 
each delay the step field is examined to see if this init sequence has compieted. 


Formal Parameters : 
SEQ_NO: Indicated which init step is presently being performed within tne RC25 init sequence. 


Implicit Inputs : 
none 
Implicit Outputs : 
none 


Completion Codes : 
TRUE: Indicates to the calling routine that the indicated init sequence step has timed out. 


FALSE: Indicates to the calling routine that the indicated init sequence 
step has not timed out. 


Side Effects : 
If the init sequence step times out and an error is posted in the sa register 
then the routine decode will be call. 


begin 

l 

TO_VALUE : word, !Step time out value 

STEP_VAL : word; !Temp storage of step value 
STEP_VAL = ZERO; !Make sure the loc is zeroed out 


Select the step value expected from this init sequence step. 


enpotaae -SEQ_NO of 'Select the binary step value 
se 
2 ae 
mn 
STEP_VAL = #b’'0O001'; 'Step 1 binary value 
1O_vALUE = 20000; !Timeout step one for 60 seconds 
’ 
mss 
mn 
STEP_VAL = #b‘'0010'; 'Step 2 binary value 
TO VALVE = 5000; !Timeout step two for 10 seconds 
end; 
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4276 (2) : 

4277 begin 

4278 STEP_VAL = #b‘'0100'; !Step 3 binary value 

4279 TO_VALUE = 5000; !Timeout step 3 for 10 seconds 


4282 CS] 2 


wD 
4 
g) 
3 
2 
& 
g 


!Step 4 binary value 
!Timeout step 4 for 10 seconds 


‘ 
g 
a 
> 
f 
y 
8 


4287 tes; 


Loop on the 100 micro second delay until either the expected step field 
is read in the SA register or the step times out. 


is 
8 


4294 incru TIM_OUT from 0 to .TO_VALUE do !Loop on C_US delay's 
in 
4296 DELAY (C_US); !Do the delay 


! Check the step bit to see if it is set yet. If it is set then return 
e false indicating the completion else continue delaying. 


> 
a) 
o 
oO 


4302 if .RC25_ADDR (RCSA, STP_FIELD) eqlu .STEP_VAL then return FALSE; 


4304 BREAK; 'Service any control C's 
4305 end; 


This step has not completed within the specified time interval. Test 
the sa register for any errors posted and report errors if any. Return 
! a true to the caller indicating the error. 


& 
3 
o 


4313 if .RC25_ADDR (RCSA, ERR _BIT) tIs the error bit set 
then 


in . 
4316 Re? STATUS = PFE _CODE; tIndicate the port/fatal error code 
DE ©); 'Report the error 
4318 end; 


4320 return TRUE; ‘Return a failure to the caller 
4321 end; 


ee Gs Ge @e GF ©F Ge Ge G+ Ge GF GF GF OF GF Ge GF G+ G+ Be GF Ge GF GF Gs Gs GF Gs GF GH Ge GF GF Gs Ge GF GF GF Gs OF Gs Gs GF GH Be oF 
3 
~“ 


-SBTTL IS. TIMER MODULE DECLARATIONS 
000000 004167 000000G IS. TIMER: : 
JSR R1, $SAVES 3 8219 
000004 162706 000006 SUB 6 , SP 
s STEP. VAL 4250 


R2 
000012 016600 000022 MOV + phate s SEQ,.NO,¢ 4261 


000020 012702 000001 \ MOV @1,R2 s @,STEP. VAL 4200 
000024 012703 047040 MOV 047040,R3 s ¢, 70, VALUE aco? 


ZRCHBS 
REV B PATCH 00 


; Routine Size: 
3 Maximum stack 


8 4322 


ZRCHBO RC25 DISK FORMATTER 


MODULE DECLARATIONS 


000001 
000902 
000002 
000004 
000003 
000010 
011610 
000001 
000000G 
000004 


000000G 
000002 000002 
000002 


177760 


83 words, 


depth per invocation: 


1$: 


2s; 


118: 


128: 


13%: 
14%: 


Routine Base: 
10 words 


AC $CODE 


De 
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#10,Re2 


RC25.ADOR ,RO 
2(RO),2¢SP) 
R2,R1 

gti con 


RO 

RO 
@177760,RO0 
R 1 


RC25.ADOR ,RO 
2(RO), CSP) 


les 
@21,RET.STATUS 
PC ,DECODE 


+ 6602 
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@, STEP. VAL 


«,STEP.VAL 


e, STEP. VAL 
«, 70. VALUE 
TIM.OUT 
o,$$TMPo 
e,$$TMPlL 


$sTMP 
$$TMP1 


$$TMP2 


@,RC$S.REG 
STEP.VAL,¢@ 
RC$S.REG,* 


TIM.OUT 


TIM.OUT,TO. 


#,RC$S.REG 


VALUE 


4261 


4272 
4275 
4261 


4278 
4279 
4261 
4284 
4285 
4294 


4296 


4302 


E2 
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: rey global routine BOOT_RC25 = !Performs RC25 init sequence 
: 4 
3 4325 fe. 
3 4326 ! Functional Description : 
; 4327 ! This routine performs the initialization sequence of the RC25 
3 4328 ! RC25 controller. 
8 4329 ! 
; retng ! The initialization procedure serves to: 
3 4331 ! 
3 4332 ! 1. Identify the parameters of the host-resident communications 
3 4333 ! region to the port. 
3 4334 ! 
3 ates : 2. Provide e confidence check of port/controller integrity. 
3 4 4 
F 4337 ! 3. Bring the port/controller online to the host (note that the 
3 4338 ! devices attached to the controller are not thereby brought 
3 4339 ! online to the class driver. ) 
8 4340 ! 
3 4341 ! Formal Parameters : 
8 4342 ! none 
3 4343 ! 
3 4344 ! Implicit Inputs : 
3 4345 ! ISO_STRUCT Stores the init sequence read and write data defined 
3 rt Hy for this program and controller. 
H 4 HY 
3 4348 ! Implicit Outputs : 
H 4349 ! none 
: 4350 ! 
3 4351 ! Completion Codes : 
8 4352 ! Success: Is returned to the calling routine if this initialization 
F rts H sequence was executed successfully. 
H 8 
3 4355 ! Failure: Is returned to the callng routine if this initialization 
3 oat H sequence was not executed successfully. 
3 8 
Fy 4358 ! Side Effects : 
; 4359 : Any 0M code that might have been running in the DM machine will be 
3 4360 ! aborted. 
3 4361 ! 
’ 4362 ! Any outstanding commands or response pertaining to a process using 
F 4363 ! the controller will be lost. 
F 4364 !-- 
F 4365 
; 4366 begin 
3 4367 
3 4368 local 
3 ryt TEMP : word; !Temporary storage location 
a 4371 Se 
3 4372 ! The host begins the initialization sequence 
3 4373 ! either by issuing a bus init or by writing 
3 4374 ! any velue into the IP register; the port must 
H 4375 ! guarantee that the host will read zeros in SA 
F 4376 ! on the next bus cycle. Initialization then 
8 4377 ' sequences through steps 1-4 as per VQSSP.DOC 
$ oaee ! Version 1.5. 
. o 


Fe 


4435 if . TEMP nequ .ISD_STRUCT [.SEQ_NO, ISRD, ISR_ALL]) !Compare read to expected 
4436 then 


SEQ 0225 
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: 4380 ! Write to the IP register and start the init 
3 4381 ! sequence going. 
3 4382 !- 
3 4383 
3 ates WRT_RC25 C(CRCIP, ONES); !Begin init sequence 
3 4 
3 4386 te 
3 4387 ! This iner loop performs all four steps of the 
; 4388 ! initialization sequence described above. The 
3 4389 ! SA write and read date is preset into the 
; 4390 ! structure ISO_STRUCT and stands for 
; 4391 ! "Initialization Sequence Data_STRUCT”. 
3 4392 : « - - 
H 4393 : 
: 4394 2 av a step time out error occures the test 
; 4395 ! invoking this routine will take the necessary 
; 4396 ! retry procedure. A return code of failure is 
3 4397 ! returned. 
3 4398 H 
3 4399 ! If any SA register compare error is detected after 
; 4400 ! a step completion the routine Decode will decode the 
8 ese ! error and load statistical tables up pertanate data. 
. ' 
8 4403 §- 
H 4404 
3 eee incru SEQ_NO from STEP1 to STEP4 do !Do the four init seq steps 
H 4 in 
3 4407 $ 
$ nee ! Wait for the controller to load the SA reg up with the step data. 
é : 
; 4410 
F 4411 if IS_TIMER (.SEQ_NO) !Did the Controller time out 
Wa 
. n 
H 4414 aes 
8 oats ' DO SOME STAT TABLE UP DATA TO SHOW THE TIME OUT 
8 a ; 
: 4417 PRINTB (.EMSG_STRUCT [MSG10]); ‘ 
H 4418 return FAILURE; tNotify DRS>. init of the failure 
F 4419 end; - 
Fy 4420 
3 4421 g 
; 4422 ! The controller did not time out so read the SA register 
s 4423 ! for the expected step date and compare it to the good 
3 cane : date stored in ISD_STRUCT. 
3 4426 ! If the read SA data is not what we expect then return ea 
Fy 4427 ! failure code. 
3 4428 8 
3 4429 ! Note that the reserved fields read in the SA register are 
3 4430 ! or'ed with all ones to mask out the field before compared 
8 sank ! to the expected data stored in the structure "ISD_STRUCT”. 
H $ 
s “a TEMP = ((.RC25_ADDR [RCSA, RC_ALL)) or (.RSVD_STRUCT [.SEQ_NO))); 


ZRCHBS 
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4437 
4438 
4439 
4440 
4441 
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$2 co cece 
ro 


000000G 


177777 
000000G 
177504 


000024G 
000001 


000000G 
000002 000002 


Load some satistical table up 


ya 


a 


5-Apr-1984 13:46:24 
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init sequence had some trouble. 


' 

PRINTB (.EMSG_STRUCT (MSG11]); 
return FAILURE; 
end; 


with some data to 
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indicate that the 


tReturn a failure code 


! If this is step four then print this u-code version number. 


if .SEQ_NO eqlu STEP4 then PRINTB (FMT4, 


WRT_RC2S (RCSA, 


end; 


BOOT.RC25:: 


1$: 


2s: 


This step read date is what we expected so 
with this steps write data stored in ISD_ STRUCT. 


-ISO_STRUCT [.SEQ_NO, ISWRT, ISW_ALL]); 


write the SA register 


SBTTL BOOT.RC25 MODULE DECLARATIONS 


R1, $SAVE3 
-(SP), -CSP) 
@-1,RO0 

—~ tania 


2 
Re, -(SP) 
PC,IS. TIMER 
(SP )+ 
RO 


es 

EMSG. STRUCT +24, -( SP) 
#1, -(SP) 

SP ,RO 

14 

3% 

RC25.ADDR,RO 
2(RO),20SP) 

R2,RO 

RO 


2(SP),R3 
RSVD.STRUCTCRO),R3 
~ tii 

1 


R1 
‘aidan 


-RC25_ADDR [RCSA, S4R_VER]); 


Tne controller initialization sequence was done successfully so return a success code. 
turn SUCCESS; 
3 


«,RC$M.REG 
RC$M.REG,« 
SEQ.NO 
SEQ.NO,* 


SP,@ 


#,RC$S.REG 
SEQ.NO,* 


RC$S.REG, TEMP 


«TE 


SEQ.NO,* 


TEMP ,« 


SEQ 0226 


4323 
4384 


4405 
4411 


4417 


4411 
4433 


3435 
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000114 016746 


3 Routine Size: 
; Maximum stack 


3 4464 
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000026G 
000001 


3$; 
000003 4$; 


000000G 
000002 
177760 
000000G 
000002 


000006 
000002G S$: 
000000G 


000002 
000003 
000001 


68: 
7$: 


80 words, 
depth per invocation: 


Routine Base: 
11 words 


He 
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EMSG. STRUCT +26, -( SP) 


#1,-CSP) 
P,RO 
1 


4 
(SP)+,(SP)+ 
6$ 


RC25. ADDR ,RO 
R1,2(CRO) 

R2 

R2, 93 

1$ 

#1,R0 

7$ : 


RO 
(SP)+,CSP)+ 
PC 


ACSCODE + 7050 


. SP 
ISD.STRUCT+2(R1),R1 


VAX-11 Bliss- 
SPIDERSUSERS: 


3; SP, 


3 SEQ.NO,¢ 


; *,RC$S.REG 
; RC$S.REG,« 


: SP,* 


3 #,RCS$M.REG 


3 RCSM.REG,¢ 
; SEQ.NO 
; SEQ.NO,« 


SEQ 0227 
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4442 


4435 
4437 
4450 


4456 
4405 


4366 
4323 


ZRCHBS 
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4465 
4466 
4467 
4468 


Ie 


E —y 
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global routine INIT_COM_AREA = !Inits DUP Protocol commumication ares 


e+ 

Functional Description : 
After initialization step 3 the port controller clears out 
the communication area's ring buffers. 


This routine first makes sure that this protocol is accom- 
plished by the port before proceeding. 


If the port did its part of the protocol then the communic- 
ations area is initialized as follows: 


1. Defines from the contigious data storage structure 
“COM_AREA” the header area address, receive ring | 
address and the send ring address (these structures 
ere initially declared as reference structures and 
require an address tobe defined as its value per 
BLISS language conventions). 


2. Clears the interrupt indicators and adaptor pur 
(ring base -1, -2, -3, -4) defined as “HEAD_AREA’ 


3. Loads the receive and send descriptors with the values: 
a. Envelope low, high and Q_bus address 
b. Reserved field 
c. Flag bit 
d. Ownership bit 


4. Load the receive envelope message length field with the 
buffer size in bytes. 


5. Initialize the Out$standing command buffer to reflect 
that ell slots are unused. 


Formal Parameters : 
none 


Implicit Inputs : 
HEAD_AREA, RECEIVE_RING, SEND_RING, COM_AREA 


Implicit Outputs : 
The communication area as a result of this routine will be initialized 
for host program to remote program communications per DUP and 
UQSSP specifications. 


Completion Codes : 
TRUE: Error code to indicate tne port controller has 
not fullfilled its part of the DUP protocol. 


FALSE: An error code to indicate the port controller 
has fullfilled its part of the DUP protocol. 


Side Effects : 
none 


Pree er Oe Oe A es er ee A a a a a 
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; 4S22 begin 
3 4523 
; 4524 te 
; 4525 ' Make sure that the controller has done its part of 
3 4526 ! the DUP protocol by clearing out the ring buffers. 
F 4527 ! If the rings are not cleared out then return with 
: 4528 ! an error code of true. 
3 4529 !- 
Fy 4530 
’ onet incru i from 2 to RING_SIZE - 1 do 'Test all blocks for zeros 
3 4532 
; -c incru j from WRDO to WRD1 do 'Test all words for zeros 
; 4 H 
: 4535 ! Test this word for zeros. If not zeros then exit 
3 4536 ! this routine with an "communication area init” 
; reed ‘ error code to indicate the Protocol violation. 
. ' 
; 4539 
3 ot if .COM_AREA [.i, .j. WORD_REF] nequ ZERO then return CIE_CODE; 
: 4541 
3 4542 te 
: 4543 ! Tne port did its part of the protocol so now 
3 4544 ! define the address locations of the HEAD_AREA, 
8 4545 ! RECEIVE_RING and SEND_RING from the contigious 
3 4546 ! storage declared by COM_AREA. 
ry 4547 !- 
3 4548 
3 4549 HEAD_AREA = COM_AREA 'Define the Header area 
$ 4550 RECEIVE_RING = COM_ AREA (REC_BASE); !Define the receive ring area 
8 pice! SEND_RING = COM_AREA [SND_BASE); !Define the send ring area 
8 4553 $e 
8 4554 ! Not quite sure if the port has to clear out 
$ 4555 ! the header area of the commun ications area 
; 4556 ' so I'll clear it out here just in case. 
3 4557 {- 
$ 4558 
3 4559 incru i from WRDO to WRD3 do 
s 4560 HEAD_AREA [.i, WORD OREF} = ZEROS; 
Fy 4561 
3 4562 te J 
F 4563 ! Load up the Send Ring eos yw L with an envelope address, 
F 4564 ! define the “Flag bit” to = 1 Cinterrupt requested), define 
3 4565 ! the “Ownership bit” to = 0 (owned by host) and load the 
8 4566 ' Reserved field with zeros (per DUP spec). 
3 4567 $- 
8 4568 
Fy roa 44 ineru i from O to SND_ALLOCATE - 1 do 
; mn ‘ 
8 4571 SEND_RING [.i, LO_EN$AD) = SND_ENVELOPE [.i, CMD_LREF]; !Low-order envelope adress for all sys 
$ 4572 SEND_RING [.i, HI_ENSAD) = ZERO; tHigh-order portion of an 18-bit U/Q bus adrs 
3 4573 SEND_RING [.i, QB_EXT) = ZERO; !Q_bus extention 
3 4574 SEND_RING [.i, D$RSVD) = ZERO; tReserved field 
; 4575 SEND_RING [.i, FLAG_BIT) = SET_FLG; Fl bit whose meaning varies depending on dsc state 
3 4576 SEND_RING [.i, OWN_BIT) = HOST_OWNED; tIndicates whether dsc is host or port owned 
3 4577 end; 
3 


Je 


ZRCHB5S ZRCHBO RC25 DISK FORMATTER 5-Apr-1984 13:46:24 VAX-11 Bliss-16 V3-555 
REV B PATCH 00 MODULE DECLARATIONS 

: 4579 $e 

; 4580 ! Load up the Receive Ring descriptors with an envelope 

3 4581 ! address, define the "Ownership bit” = 1 (owned by port), 

’ 4582 ! define the "Flag bit” to = 1 (Interrupts requested) and 

3 4583 ! the reserved field set to zeros (per spec). 

3 4584 $- 

3 4585 a 

3 peng incru i from 0 to REC_ALLOCATE - 1 do 

3 4 in 

3 4588 RECEIVE_RING [.i, LO_EN$AD) ~ REC_ENVELOPE [.i, CMD_LREF]; 

3 4589 RECEIVE_RING [.i, HI_ENSAD) = ZEROS; 

3 4590 RECEIVE_RING [.i, QB_EXT]) = ZEROS; 

H 4591 RECEIVE_RING [.i, DSRSVD) = ZEROS; 

3 4592 RECEIVE_RING (.i, FLAG_BIT) = SET_FLG; 

F 4593 RECEIVE _RING [.i, OWN_BIT) = PORT_CWNED; 

3 4594 end; 

Fy 4595 

; 4596 g 

3 p+ +4 ' Reset the communications area pointer to their initial state. 

3 4 H 

8 4599 NRD_SLOT = -1: !Start ring pointer at zero 

8 4600 NSD_SLOT = -1; !Start ring pointer at zero 

PF ook NXT_CRN = ZERO; 'Start unique cmd ref num at one 
Hy 6 

H 4603 $e 

3 4604 ! Set the response envelope message length size equal 

3 rare ‘ to the buffer size in bytes starting at text + 0. 

H 4607 

8 4608 incru i from O to REC_ALLOCATE - 1 do 

3 ania REC_ENVELOPE [.i, MSG_LENGTH) = RB_SIZEe2; !Convert to bytes before loading 
H 4611 Ss 

3 4612 ! Init the outstanding command buffer as follows: 

; 4613 H 1. Indicate that all slots are unused by loading 

H 4614 $ the unique value so’ 100000’ 

’ 4615 H 2. Clear the envelope adrs words to zero. 

8 4616 '- 

H 4617 

F onit incru i from 0 to REC_ALLOCATE - 1 do 

3 in 

3 4620 OUTS$STO_BUF [.i, CMD_WRD) = #0'100000'; !Define the slot as unused 

3 4621 OUT$STD_BUF [.i, ENV_ADR) = ZERO; !Clear out the envelope adrs field 
H 4622 end; 

3 4623 

: 4624 5 

; 4625 ! No errors detected by this routine so return with an npeerror code of false. 
F 4626 : 

8 4627 return PAS_CODE; 

3 4628 ; 


000000 004167 


000004 012701 
000010 005002 


Ke 


.SBTTL INIT.COM.AREA MODULE DECLARATIONS 


0000006 INIT.COM. AREA: ; \ ) 
JSR —s- R11, $SAVES ‘ 
000004 MOV 04,R1 : 4,1 
L$: CLR sR iJ 


SEQ 0230 


P 86 
11-Jan-1984 13:23:12 SPIDERSUSERS : [ NEALE. AZTEC ]ZRCHBS.B16;4°(24 ) 


4405 
4531 
4533 


ZRCHBS 


REV B PATCH 00 


ZRCHBO RC25 DISK FORMATTER 


MODULE DECLARATIONS 


000077 
000004G 


2s: 


3$;: 


4$: 


S$: 


6$: 


&. 


5-Apr-1984 13:46:24 
11-Jan-1984 13:23:12 


R1,RO 
R2,RO 


RO 
eee 
#1,RO0 

P 


— 
Sad 


@COM.AREA,HEAD. AREA 
@COM.AREA+10,RECEIVE .RING 
Rete cme: 


Rl, ~y 


MUL 
@SND. ENVELOPE +4 ,RO 
RO, CR2) 


R1,RO 
SEND.RING,RO 
#2 ,RO 
#40000, (RO) 
(SP)+,(SP)-+ 
R3 


R3,03 


7,RO 
@REC .ENVELOPE +4,RO 
RO,(R3) 


R1,RO 


VAX-11 Bliss-16 


SEQ 0231 


V3-555 Page 87 
SPIDER$SUSERS: (NEALE. AZTEC )ZRCHBS. B16;4°¢ (24) 


I, 
J,* 


He Len] 
= 
e 


4540 


4569 
4571 


4S72 


4576 
4570 
4569 


4586 
4588 


4589 


ZRCHBS 


REV B PATCH 00 MODULE DECLARATIONS 


; Routine Size: 127 words, 
3 Maximum stack 


4629 

4630 end 
4631 

4632 eludom 


Psect Name 
AC $CODE 


depth per invocation: 


ZRCHBO RC25 DISK FORMATTER 


7$; 


8$: 


Routine Base: 
7 words 


AC $CODE 


Me 


5-Apr-1984 13:46:24 
11-Jan-1984 13:23:12 


RECEIVE .RING,RO 
#2,RO 

#140000, (RO) 

Re 

R2, 03 

6$ 

#-1,NRO.SLOT 
@-1,NSO.SLOT 
NXT.CRN 


RO 
074 ,REC .ENVELOPE(RO) 


#@-100000 ,OUT$STD.BUFCRO) 
OUT$STD.BUF +2(RO) 


¢ 7310 


OTS external references 


. GLOBL 


PSECT SUMMARY 


Words 


Attributes 
2019 I 


LIBRARY STATISTICS 


File 


SPIDER SUSERS: [NEALE .AZTEC ]ZRCHBO.1L16;2 


Total 


398 


$SAVE4, $SAVE3, $SAVE2, BL $MUL 


eo LCL, REL. CON 


Symbols -------- Blocks 
Loaded Percent Read 


278 69 55 


VAX-11 Bliss-16 v3-555 


SEQ 0232 
Page 


SPIDERSUSERS: [NEALE .AZTEC ]ZRCHBS. B16;4°¢ (24) 


ZRCHBS ZRCHBO RC25 DISK FORMATTER 
REV B PATCH 00 MODULE DECLARATIONS 


3 COMMAND QUALIFLERS 
3 BLISS /PDP11/LIST ZRCHBS.B16 

Size: 2019 code + 0 data words 

Run Time: 01:26.0 

Elapsed Time: 05:03.3 


Memory Used: 267 pages 
Compilation Complete 


N2 
5-Apr-1984 13:46:24 
11-Jan-1984 13:23:12 
s 


« 


SEQ 0233 
VAX-11 Bliss-16 v3-555 Page 
SPIDERSUSERS : (NEALE .AZTEC]ZRCHBS.616;4 (24) 


3 
é 


ee Ge Ge Ge Ge Ge Gs Ge Ge G: Ge Se Ge Gs Ge Ge Ge Gt GH Gs GH Ge GF OF Ge Gs GF GS GH Ge Ge Ge Gs Gt Ge GF Gs GF Ge Gs Gs GH Gs OF GF GH GH GF Ge Ge GF GF Ge GF GF Ge oF 


B3 


ZRCHBO RC2S DISK FORMATTER 5-Apr-1964 13:51:39 
23-Sep-1983 14:16:03 


MODULE ZRCHB7 8 (sSTITLE ne yt a a FORMATTER’ 
IDENT = ‘REV B PATCH 


SEQ 0234 
VAX-11 Bliss-16 v3-555 Page 1 
SPIDERSUSERS : [NEALE .AZTEC )ZRCHB7. B16;2°¢ (1) 


ity 


ADDRESSING _MODE CRELATIVE), 
ENVIRONMENT (NOEIS)) = 
BEGIN 
SSBTTL "LAST ADDRESS AND SETUP SECTION’ 
Pretty Declarations 
!<b1F/ lowercase _key> 
LIBRARY ‘ZRCHBO'; !Define RC25 Formatter library 
REQUIRE ‘BLSMAC.REQ’ ; 'Define Bliss macro require file 
Se 
! Tre LASTAD macro must be the final statement (except .end) in a pro- 
! gram. The call generates an even address reflecting the first word of 
: memory unused by the program. 
LASTAD 
te 
: Hardcoded P-TABLES 
: These optional hardware P-TABLES ere located (when present) between 
! the "“LASTAD” macro and the ”".END” statement. These hardware P-TABLcS 
! are above and beyond the default hardware P-TABLE located in the main 
! body of the program. These P-TABLES wind up appended to the BIN file 
! of the diagnostic, just as though the supervisor or the “SETUP” util 
! head built them there. Thus the diagnostic can be “pre-parameter ized” 
: by the programmer. 
: If this hardcoded P_TABLE section is not wanted then define “number” in 
: the BGNSETUP macro to zero and omitt BGNTAB and ENDTAB macros. 
Coding sample is as follows: 
LASTAD 
BGNSETUP (Number ) !Number of P-TABLES 
: BGNP TAB 
H (DATA) 
: (DATA) 
$ (DATA) 
: ENOPTAB 
‘ BGNP TAB 
H (DATA) 
H (DATA) 
$ (DATA) 
: ENDPTAB 


ZRCHB ? ZRCHBO RC25 DISK FORMATTER 

REV B PATCH 00 LAST ADDRESS AND SETUP SECTION 
3 1546 ! ENDSE TUP 

3 1547 ! END 

3 1548 !- 

H 1549 

Fy 1550 BGNSETUP (0); 

3 1551 : 

3 1552 ! No optional P_Tables are defined 
3 1553 ! within this program. 

8 1554 : 

3 1555 ENDSETUP 


. TITLE 
. IDENT 


.PSECT 
BLSLAS::.WORD 
. WORD 
TSFREE: : .WORD 


LSLAST== 
TSPTHV== 


C3 


5 -Apr-1984 13:51:39 
23-Sep-1963 14:16:03 


VAX-11 Blies-16 V3-555 


SEQ 0235 
Page 


SPIDERSUSERS: [NEALE .AZTEC )7RCHB7.B16;2 (1) 


ZRCHB7 ZRCHBO RC25 DISK FORMATTER 
/REV B / 


$xvZ¢, RO 
TSFREE 
a 


BLSLAS+4 
0 


SEND.LINK LAST ADDRESS AND SETUP SECTION 


. SBTTL 
000002 000207 SEND.LINK:: 
RTS PC 
: Routine Size: 1 word, Routine Base: $XYZ$ + 0006 
; Maximum stack depth per invocation: O words 
3 1556 END 
3 1557 ELUDOM 
H PSECT SUMMARY 
; Psect Name Words Attributes 
3 sxvZ$ 4 « Bie 
s LIBRARY STATISTICS 
3 
Pe a) 2. yh ee 5 ane oe eee eae = Seer one Symbols -------- 
3 File Total Loaded Percent 
8 
3 SPIDERSUSERS: [NEALE .AZTEC ]ZRCHBO.L16;2 - 
H 8 0 


CON 


1504 


D3 


ZRCHB ? ZRCHBO RC25 DISK FORMATTER 5-Apr-1984 13:51:39 VAX-11 Bliss-16 v3-555 ay 
REV B PATCH 00 LAST ADDRESS AND SETUP SECTION 23-Sep-1983 14:16:03 SPIDERSUSERS: [NEALE .AZTEC )ZRCHB7.616;2 (1) 
3 COMMAND QUALIFIERS 
3 BLISS /PDPLI/LIST ZRCHB7.B16 

Site: 1 code + 3 data words 

Run Time: 00:06.5 

. Elapsed Time: 00:38.1 


Memory Used: 99 pages 
Compilation Complete 


oe of of oe oF 


ES 


ZRCHB .E XE Memory allocation map IKB M40.02 Page 1 ao oe 


5 -APR -84 13:53 


Partition name : DUMMY 

Identification : REV B 

Task UIC : (300,12) 

Task attributes: -HD 

Total address windows: 1. 

Task image size : 15680. words 

Task address Limits: 002000 077177 

R-W disk blk Limits: 000002 000077 000076 00062. 


eee Root segment: ZRCHB2 


R/uw mem Limits: 002000 077177 075200 31360. 
Disk Blk Limits: 000002 000077 000076 00062. 


Memory allocatior synopsis: 


Section Title Ident File 
. BLK.:(RW,I,LCL,REL,.CON) 002000 000000 00000. 
AASCOD:(RO,I,LCL,REL.CON) 002000 001434 00796. 


002000 000166 00118. ZRCHB2 REV B ZRCHB2.0BI;1 

002166 001246 00678. ZRCHB3 REV B ZRCHB3.0BI;1 
ABSCOD:(RO,I,LCL,REL.CON) 003434 002312 01226. 

003434 002312 01226. ZRCHB4 REV B ZRCHB4.0BJ;1 


AC$COD:(RO,I,LCL,REL,CON) 005746 007706 04038. 

005746 007706 04038. ZRCHBS REV B ZRCHBS.0BU;1 
ADSCOD:(RO,I,LCL,REL.CON) 015654 000002 00002. 

015654 000002 00002. ZRCHB6 REV B ZRCHB6.0BJ;1 
BLSCOD:(RO,I,LCL,.REL,CON) 015656 000424 00276. 


015656 000316 00206. Bl6MUL V3.0 NEISLB.0LB;4 

016174 000106 00070. BI6SAV V3.0 NEISLB.0LB;4 
SOMCOD: (RO,0,GBL ,REL ,CON) 016302 043072 17978. 

016302 043072 17978. ZRCHB6 REV B ZRCHB6.O0BI;1 
$GLOB$:(RO,0,GBL,REL,CON) 061374 002554 01388. 

061374 002554 01388. ZRCHB2 REV B ZRCHB2.0BI;1 


sPLIT$:(RO,0,GBL,REL,CON) 264150 013016 05646. 
064150 013016 05646. ZRCHB2 REV B ZRCHB2.08J;1 
$xyZ$ :(RO,I,LCL,REL,CON) 077166 000010 00008. 


077166 000010 00008. ZRCHB7 REV B ZRCHB7.0BJ;1 


Global symbols: 


ABORT 010572-R BOOT.F 076034-R DFPTBL 002140-R ERRTYP 002126-R FMT4  064354-R GP$1  002252-R HW.Q1. 076476-R 
ABO.MS 075604-R BOOT.R 015016-R OMSA 016342-R EX.LOC 012004-R FMTS  064440-R GP$2 002262-R HW.Q2. 076534-R 
ACTIVE 076240-R BR.LEV 064112-R DUMMY 015654-R EX.SUP 011366-R FMT6 064550-R GP$3 002272-R HW.Q3. 076572-R 
AZFMTR 016302-R COM.AR 061374-R DUPSI. 007436-R FCT.BU 062332-R FMT?  064646-R GP$4 002304-R HW.Q4. 076630-R 
BLSDIV 016102-R CRLF 065016-R DSPCNT 002122-R FCT.RE 076416-R GET.CM 006264-R GP$5  002322-R HW.UNI 002146-R 
BLSLAS 077166-R CTO.WA 010362-R EMSG.S 071030-R FLG.WR 064062-R GET.DU 011070-R HUSA 016302-R HW.VEC 002142-R 
BL$MOD 016114-R DATETX 064046-R ERRBLK 002134-R FMT1  064150-R GET.NR 006144-R HEAD.A 061444-R INACTI 076322-R 
BLSMUL 015656-R DATMSG 075412-R ERRMSG 0021352-R FMT2 064156-R GET.NS 006116-R HW.BR. 002144-R INIT.C 015256-R 
BLSSHF 016126-R DECODE 006352-R ERRNBR 002130-R FMTS 064246-R GOOD.N 075742-R HW.IP. 002140-R INT$I. 014540-R 


ZRCHB .E XE 


ZRCHB2 


064130-R 
014550-R 
005746-R 
006172-R 
064074-R 
002110-R 
002036 -R 
003424 - 

002070-R 
003346 -R 
002106-R 
003400-R 
002032-R 
002011-R 
002166 -R 
002076 -R 
002060 -R 


5 -APR -84 


L$DISP 


002124-R 
002116-R 


aee Task builder statistics: 


13:53 


Total work file references: 15303. 
reads: 0. 


Work 


file 


Work file writes: 
Size of core pool: 3216. words (12. pages) 
Size of work file: 2304. words (9. pages) 


Elapsed time:00:00:33 


QO. 


Memory allocation map TKB M40.02 


L$PROT 
LSPRT 
LSREPP 
L$REV 
LS$RPT 
LSSFTL 
L$SOFT 
L$SPC 
L$SPCP 
L$SPTP 
LS$STA 
L$SwW 
LSSWLE 
LSTEST 
L$TIML 
LSUNIT 
MSGADR 


002160-R 
002112-R 
002062 -R 
002010-R 
002334 -R 
002320-R 
002322-R 
002056-R 
002020-R 
002024 -R 
002030-R 
002154-R 
002152-R 
002114-R 
002014-R 
002012-R 
063334 -R 


FS 


RECEIV 


061446-R 


. 076666 -R 


$SAVES 


076732-R 
077022-R 
077106-R 
002154-R 
075664 -R 
077172-R 


000000 

005732-R 
064114-R 
064110-R 
065022 -R 
077174-R 
016174-R 
016210-R 
016226-R 
016246-R 


SEQ 0238 


G3 


SEQ 0239 
ZRCHB CREATED BY TKB ON 5-APR-84 AT 13:53 PAGE 1 
GLOBAL CROSS REFERENCE CREF vo2 
SYMBOL VALUE REFERENCES... 


ABORT  010572-R ZRCHB4 = @ ZRCHBS 


ABO.MS 075604-R @ 2 ZRCHB3 

ACTIVE 076240-R @ ZRCHB2 ZRCHB4 

AZFMTR 016302-R ZRCHB3 ZRCHBS @ ZRCHB6 
BLSDIV 016102-R #@ B16MUL ZRCHB3 

BLSLAS 077166-R @ ZRCHB7 

BL$MOD 016114-R @ B16MUL 

BLSMUL 015656-R ¢@ B16MUL ZRCHBS 

BLSSHF 016126-R @ B16MUL 

BOOT.F 076034-R @ ZRCHB2 ZRCHB4 

BOOT.R 015016-R ZRCHB4 9 @ ZRCHBS P 
BR.LEV 064112-R @ ZRCHB2 ZRCHB3S 

COM.AR 061374-R @ ZRCHB2 ZRCHBS 

CRLF 065016-R @ ZRCHB] ZRCHB3 ZRCHB4 
CTO.WA 010362-R @ ZRCHBS 

DATETX 064046-R @ ZRCHB2 ZRCHB3 ZRCHB4 
DATMSG 075412-R @ 2 ZRCHB3 ZRCHB4 ’ 
DECODE 006352-R ZRCHBS ZRCHB4 @ ZRCHBS 
OFPTBL 002140-R @ ZRCHB2 

OMSA 016342-R ZRCHBS @ ZRCHB6 

DUMMY  015654-R @ ZRCHB6 

DUP$I. 007436-R ZRCHB4 @ ZRCHBS 

DSPCNT 002122-R @ ZRCHB2 

EMSG.S 071030-R @ ZRCHB2 ZRCHBS 

ERRBLK 002134-R @ ZRCHB2 

ERRMSG 002132-R @ ZRCHB2 

E 002130-R @ ZRCHB2 

ERRTYP 002126-R @ ZRCHB2 


EX.LOC 012004-R ZRCHB4 @ ZRCHBS 


FCT.BU 062332-R @ ZRCHB2 ZRCHB4 
FCT.RE 076416-R @ ZRCHB2 ZRCHB4 
FLG.WR 064062-R © ZRCHB2 ZRCHB3 ZRCHB4 
FMT1 064150-R @ ZRCHB2 ZRCHB4 
FMT2 064156-R © ZRCHB2 ZRCHB3 
FMTS 064246-R & ZRCHB2 ZRCHB3 
FMT4 064354-R @ ZRCHB2 ZRCHBS 
FMTS 064440-R @ ZRCHB2 ZRCHB4 
FMT6 064550-R @ ZRCHB2 ZRCHB4 
FMT7 064646-R @ ZRCHB2 ZRCHB4 
GET.CM 006264-R @ ZRCHBS 

GET.DU 011070-R ZRCHB4 @ ZRCHBS 
GET.NR 006144-R @® ZRCHBS 

GET.NS 006116-R @ ZRCHBS 

GOOD.N 075742-R @ ZRCHB2 ZRCHBS 
GP$1 002252-R & ZRCHB3 

GPs2 002262-R @ ZRCHB3 

GP$3 002272-R & ZRCHB3 

GP$4 002304-R @ ZRCHB3 

GPssS 002322-R @ ZRCHB3 

HOSA 016302-R ZRCHBS @ ZRCHB6 
HEAD.A 061444-R @ ZRCHB2 ZRCHBS 


CREATED BY TKB 
CROSS REFERENCE 
REFERENCES... 


VALUE 


002144-R 
002140-R 
076476-R 
076534-R 
076572-R 
076630-R 


002026 -R 


eooeooooeoso 


& @e6000CS S2000080 F&F SO000C0 802 S&S F&F SECS SSE 


ON 5-APR-84 AT 13:53 


ZRCHBS 
ZRCHBS 
ZRCHBS 


@ ZRCHBS 
@ ZRCHB3 
@ ZRCHBS 


ZRCHB3 


ZRCHBS 


@ ZRCHBS 
® ZRCHBS 


ZRCHBS 


ZRCHBS 


ZRCHB4 


ZRCHB4 


PAGE 2 


ZRCHBS 


ZRCHB 
GLOBAL 
SYMBOL 


L$LAST 
L$LOAD 


CREATED BY TKB 
CROSS REFERENCE 


VALUE 
077172-R 


064120-R 


ON 5-APR-84 AT 13:53 


REFERENCES... 
ZRCHB2 @ ZRCHB7 
@ ZRCHB2 
® ZRCHB2 
@ ZRCHB2 
@ ZRCHB2 
@ ZRCHB3S 
@ ZRCHB2] 
@ ZRCHB3 
@ ZRCHB2 
@ ZRCHB2] 
@ ZRCHB2 
@ ZRCHB2] 
@ ZRCHB2 
@ ZRCHB2 
ZRCHB2 @ ZRCHBS 
@ ZRCHBS 
ZRCHB2 @ ZRCHBS 
° HB2 
@ ZRCHB] 
@ ZRCHB2] 
® ZRCHB2 
@ ZRCHB2 
@ ZRCHB2 
® ZRCHB] 
@ ZRCHB] 
@ ZRCHB2 ZRCHB3 
® ZRCHB2 ZRCHB4 
@ ZRCHB2 ZRCHB4 
@ ZRCHB2] ZRCHB3 
@ ZRCHB2 ZRCHB4 
@ ZRCHB2 ZRCHB4 
® ZRCHB] ZRCHB4 
ZRCHB4 = @ ZRCHBS 
@ ZRCHB2 ZRCHBS 
@ ZRCHB2 ZRCHB3 
@ ZRCHB2 ZRCHBS 
@ ZRCHB2 ZRCHBS 
® ZRCHB2 ZRCHB4 
@ ZRCHB2 ZRCHB4 
@ ZRCHB2 ZRCHB4 
@® ZRCHB] ZRCHB3 
® ZRCHB2 ZRCHB3 
@ ZRCHB2 ZRCHBS 
@ ZRCHB] ZRCHBS 
@ ZRCHB2 ZRCHBS 
@ ZRCHB2] ZRCHB4 
ZRCHB4 = @ ZRCHBS 
@ ZRCHB2] ZRCHBS 
@ ZRCHB] ZRCHB4 
@ ZRCHB2 ZRCHB4 
@ ZRCHB2 
@ ZRCHB2 ZRCHBS 


ZRCHBS 


ZRCHBS 
ZRCHBS 
ZRCHBS 


ZRCHBS 


ZRCHBS 


ZRCHB4 


ZRCHB4 
ZRCHBS 


ZRCHBS 
ZRCHBS 


ZRCHBS 


PAGE 3 
CREF 


voe 


13 


SEQ 0241 


$SAVES 


CREATED BY TKB 
CROSS REFERENCE 


VALUE 
074716-R 


075664 -R 
077172- 


000000 

005732-R 
064114-R 
064110-R 
065022-R 
077174-R 
016174-R 
016210-R 
016226-R 
016246-R 


ON 5-APR-84 AT 13:53 


REFERENCES... 
@ ZRCHB2 ZRCHBS 

ZRCHB4 9 @ ZRCHBS 
@ ZRCHB2 ZRCHBS 

ZRCHB4 @ ZRCHBS 
@ ZRCHB2 
@ ZRCHB2 ZRCHBS 
@ ZRCHB2] ZRCHB4 
@ ZRCHB2 ZRCHBS 
@ ZRCHB2 ZRCHB3 
® ZRCHB2 ZRCHB3 
@ ZRCHB2 ZRCHB3 
@ ZRCHB] ZRCHB3 
@ ZRCHB] ZRCHB3 
@ ZRCHB] ZRCHB3 
@ ZRCHB7 

ZRCHB2 @ ZRCHB7 

ZRCHB2 @ ZRCHB4 
@ ZRCHB2 ZRCHBS 
@ ZRCHB2] ZRCHB3 
@ ZRCHB2 ZRCHB3 
® ZRCHB7 

B1l6MUL #@ BI6SAV 
® B16SAV ZRCHB4 
@ B16SAV ZRCHBS 


® B1I6SAV 


ZRCHBS 


ZRCHB4 


ZRCHB4 


ZRCHB4 


ZRCHB3 
ZRCHBS 


ZRCHBS 
ZRCHBS 


ZRCHBS 
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J3 


SEQ 0242 


